txt-Datei überspeichern

[DeddyH]

Also, bei mir funktioniert es. Bist Du sicher, dass die Variable "Pfad" richtig belegt ist?

[edit] Fipptehler [/edit]

[edit2]Hier mal meine Version:

Delphi-Quellcode:

var txt_Dokument : TStringlist;
begin
  txt_Dokument := TStringlist.Create;
  try
    txt_Dokument.LoadFromFile(Pfad);
    if txt_Dokument.Count > 0 then
      begin
        txt_Dokument.Add(txt_Dokument[0]);
        txt_Dokument.SaveToFile(Pfad);
      end;
  finally
    txt_Dokument.Free;
  end;
end;

[/edit2]