Einlesen von Datei mittels TFileStream

[F.W.]

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!