Textdatei-Einträge rückwärts speichern

[Union]

Zitat von Guido Eisenbeis:

Was meint ihr dazu? Kann man das eleganter lösen?

Ja, ans Ende anhängen
Ansonsten in etwa:

Delphi-Quellcode:

var
   LogLines : TStringList;
begin
   LogLines := TStringList.Create;
   try
      LogLines.LoadFromFile('LogFile.txt');
      LogLines.Insert(0, 'Eintrag an erster Stelle');
      LogLines.SaveToFile('LogFile.txt');
   finally
      LogLines.Free;
   end;
end;

Natürlich ist das weder performant noch ressourcenschonend, aber übersichtlich.