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