try axml:=TXMlConfig.Create(filename); // try to parse the file except on E: Exception do begin writeln('Error: '+ E.Message); freeandnil(axml); end; end;
There's a memory leak if the exception get's called(with or without freeandnil).
Ales
Index: fpc-1.9/fcl/xml/xmlread.pp =================================================================== RCS file: /FPC/CVS/fpc/fcl/xml/xmlread.pp,v retrieving revision 1.12 diff -u -r1.12 xmlread.pp --- fpc-1.9/fcl/xml/xmlread.pp 5 Nov 2004 22:32:28 -0000 1.12 +++ fpc-1.9/fcl/xml/xmlread.pp 16 Dec 2004 12:27:34 -0000 @@ -1389,8 +1389,8 @@ Reader := TXMLReader.Create; try Reader.ProcessXML(buf, AFilename); - ADoc := TXMLDocument(Reader.doc); finally + ADoc := TXMLDocument(Reader.doc); Reader.Free; end; finally
_______________________________________________ fpc-devel maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-devel