Textdatei-Einträge rückwärts speichern

[DeddyH]

Mit Streams ginge das auch:

Delphi-Quellcode:

procedure AddFirstLine(const sLine: string; const sFilename: TFilename);
var sStream: TStringStream;
    fStream: TFileStream;
begin
  fStream := TFileStream.Create(sFilename,fmOpenReadWrite);
  try
    sStream := TStringStream.Create(sLine);
    try
      sStream.WriteString(sLine + sLineBreak);
      sStream.CopyFrom(fStream,0);
      fStream.Position := 0;
      fStream.CopyFrom(sStream,0);
    finally
      sStream.Free;
    end;
  finally
    fStream.Free;
  end;
end;

Ist aber auch nicht besonders ressourcenschonend, fürchte ich.

[edit] Ist das Syntax-Highlighting neuderdings abgeschaltet? [/edit]