paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 03:09:41 +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

5
components/codetools/laz_xmlcfg.pas
View File

@ -278,6 +278,7 @@ begin
end;
doc:=nil;
if FileExists(AFilename) then begin
MemStream:=TMemoryStream.Create;
try
try
@ -291,6 +292,7 @@ begin
finally
MemStream.Free;
end;
end;
if not Assigned(doc) then
doc := TXMLDocument.Create;
@ -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