2006/6/7, Michael Van Canneyt <[EMAIL PROTECTED]>:
Var
M : TStream;
F : Text;
l : String;
begin
M:=TMyStream.Create;
Try
AssignStream(F,M);
Reset(F);
// Read your stuff here
ReadLn(L,F);
Close(F);
Finally
FreeAndNil(M);
end;
end;
This will always work.
This seams to not work:
AssignStream(f, stream); //we do this to be able to use readln
Append(f);
try
Writeln(f, 'test');
finally
Close(f);
end;
I have a file not open error. Hum...
--
Alexandre Leclerc
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
