Schreib einen String in die Datei mit den Zeichen #13#10 am Ende (Zeilenumbruch).
Dann kannst du die Datei nachher mit einer TStringList einlesen und kannst auf die Zeilen zugreifen.
Du könntest das Schreiben auch gleich mit einer STringList machen, aber der TFileStream bietet sich wegen seines sofortigen Schreibens an.
Öffne den FileStream so:
Delphi-Quellcode:
var
FS: TFileStream;
begin
FS := TFileStream(FileName, fmOpenWrite);
try
FS.Seek(0, soFromEnd);
FS.WriteBuffer(S[1], Length(S)); //S ist dein String mit #13#10 am Ende
finally
FS.Free;
end;
end;
Ich hoffe das hilft dir weiter!
