Thema: Delphi txt-Datei überspeichern

Einzelnen Beitrag anzeigen

Hermann85

Registriert seit: 24. Jan 2008
Ort: Dresden
42 Beiträge
 
#1

txt-Datei überspeichern

  Alt 7. Mär 2008, 09:29
Hallo,
Ich habe eine txt-datei ind einer Stringlist geladen und bearbeitet. Nun möchte ich das wieder in der selben datei speichern. Das geht aber nicht.
Wenn ich es allerdings in einer anderen Datei abspeicher funktionierts super.
Aber es muss doch gehn, dass ich die alte Datei überspeichern kann.
Hier erst mal mein Code:
Delphi-Quellcode:
procedure TForm1.bt_konvertierenClick(Sender: TObject);
var Datei : String;
    txt_Dokument : TStringlist;
    erste_Zeile : String;
begin
  Datei := Pfad;
  txt_Dokument := TStringlist.Create;
  txt_Dokument.LoadFromFile(Datei);
  erste_Zeile := copy(txt_Dokument.Text,0,17);
  txt_Dokument.Add(erste_Zeile);
  txt_Dokument.SaveToFile(Datei);
end;
Danke schon mal im Vorraus

Grüße Hermann
  Mit Zitat antworten Zitat