Hi, I'm having a problem with the following code:
Fstr:=TFileStream.Create('data',fmOpenRead);
i:=0;
while i<Fstr.Size do
begin
b:=Fstr.ReadByte;
inc(i);
............. Stuff ......................
end;
Fstr.Free; <-- Exception raised here
Do TFileStream objects not have to be freed?
Lazarus version: v0.9.27 r i386-win32-win32/win64
Date 2009-03-19
FPC Version 2.2.2
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
