Streams!

[maximi]

Ich hab ein Problem mit Streams.
Ich möchte gaz am Ende der Datei eine Zeile dranhängen, und das hab ich so gelöst:

Delphi-Quellcode:

  Stream:=TFileStream.Create('c:\text.txt',fmOpenWrite);
  W:=TWriter.Create(Stream,100);
  try
   Stream.Seek(soFromEnd,0);
   w.WriteString('true')
  finally
    w.Free;
    Stream.Free;
  end;

Und um das wieder zu "lesen" verwende ich diesen code:

Delphi-Quellcode:

  Stream:=TFileStream.Create(paramstr(1),fmOpenWrite);
  r:=TReader.Create(Stream,100);
  try
   Stream.Seek(soFromEnd,0);
   Edit1.Text := r.ReadString;
  finally
    r.Free;
    Stream.Free;
  end;

Und beim Lesen bekomme ich die Fehlermeldung: Stream-Feheler!!
Hilfe!!
Danke