On Thu, 8 Jun 2006, Alexandre Leclerc wrote:
> 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...
Does it work with rewrite ?
Append() really makes no sense in this case.
Michael.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
