[Lazarus] TFilestream raises exception class External SIGSEGV
waldo kitty
wkitty42 at windstream.net
Tue Apr 14 16:51:34 CEST 2009
Dave Coventry wrote:
> 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?
did you close Fstr after the while loop? the above doesn't show it...
--
NOTE: NEW EMAIL ADDRESS!!
_\/
(@@) Waldo Kitty, Waldo's Place USA
__ooO_( )_Ooo_____________________ telnet://bbs.wpusa.dynip.com
_|_____|_____|_____|_____|_____|_____ http://www.wpusa.dynip.com
____|_____|_____|_____|_____|_____|____ ftp://ftp.wpusa.dynip.com
_|_Eat_SPAM_to_email_me!_YUM!__|_____ wkitty42 -at- windstream.net
More information about the Lazarus
mailing list