IDE: code help: clearing error on success

git-svn-id: trunk@21311 -
This commit is contained in:
mattias 2009-08-19 08:59:21 +00:00
parent 321aab22e3
commit 58414835f9

View File

@ -1141,6 +1141,7 @@ begin
Result:=chprFailed;
try
ReadXMLFile(ADocFile.Doc,MemStream,CurFilename);
ADocFile.DocErrorMsg:='';
Result:=chprSuccess;
except
on E: EXMLReadError do begin