[fpc-devel] mem-leak in TStrings.SaveToFile?

[Joost van der Sluis]

Hi all,

See here the code from TStrings.SaveToFile:

Procedure TStrings.SaveToFile(const FileName: string);

Var TheStream : TFileStream;

begin
  TheStream:=TFileStream.Create(FileName,fmCreate);
  SaveToStream(TheStream);
  TheStream.Free;
end

Doesn't this leak memory when the file is locked, for example? And is is
allowed to add the 'try .. finally' here? (It's in objpas/classes so
that should be possible?)

Joost.


_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel