mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-22 16:19:27 +02:00
IDE: code help: clearing error on success
git-svn-id: trunk@21311 -
This commit is contained in:
parent
321aab22e3
commit
58414835f9
@ -1141,6 +1141,7 @@ begin
|
|||||||
Result:=chprFailed;
|
Result:=chprFailed;
|
||||||
try
|
try
|
||||||
ReadXMLFile(ADocFile.Doc,MemStream,CurFilename);
|
ReadXMLFile(ADocFile.Doc,MemStream,CurFilename);
|
||||||
|
ADocFile.DocErrorMsg:='';
|
||||||
Result:=chprSuccess;
|
Result:=chprSuccess;
|
||||||
except
|
except
|
||||||
on E: EXMLReadError do begin
|
on E: EXMLReadError do begin
|
||||||
|
Loading…
Reference in New Issue
Block a user