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

[Chewie]

Du willst ja vom Ende des Streams lesen. Allerdings ist am Ende des Streams ja nichts mehr. Du musst soviel Bytes vor Ende des Streams springen, wie du vorher geschrieben hast.

[maximi]

und das heißt im quellcode?

[Luckie]

Hier

Delphi-Quellcode:

Stream.Seek(soFromEnd,0);

musst du angeben wo der String vor dem Ende anfängt.