paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 14:39:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: reduced exceptions on file not found

Browse Source 
git-svn-id: trunk@3494 -
This commit is contained in:
lazarus 2002-10-09 12:40:25 +00:00
parent 3664a61eab
commit 3c97241416
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/laz_xmlcfg.pas
View File

@ -278,18 +278,20 @@ begin
end;
doc:=nil;
MemStream:=TMemoryStream.Create;
try
if FileExists(AFilename) then begin
MemStream:=TMemoryStream.Create;
try
ok:=false;
MemStream.LoadFromFile(AFilename);
ok:=true;
except
try
ok:=false;
MemStream.LoadFromFile(AFilename);
ok:=true;
except
end;
if ok then
ReadXMLFile(doc,MemStream);
finally
MemStream.Free;
end;
if ok then
ReadXMLFile(doc,MemStream);
finally
MemStream.Free;
end;
if not Assigned(doc) then
@ -307,6 +309,9 @@ end;
end.
{
$Log$
Revision 1.6 2002/10/09 12:40:25 lazarus
MG: reduced exceptions on file not found
Revision 1.5 2002/10/01 09:09:07 lazarus
MG: added clear and deletepath