txt-Datei überspeichern

[Klaus01]

Zitat von Hermann85:

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

Guten Morgen,

Was bezweckst Du denn damit?
Du kopierst aus dem Text der StringList einen Bereich von 0 bis 17
in einen String. Diesen String fügst Du an das Ende der StringList an.
Du speicherst also die bisherige StringList und zusätzlich am Ende die "erste_Zeile".
Ist es das was Du willst?
Wenn Du nur die erste Zeile speichern willst solltest Du die StringList
bevor die erste Zeile angefügt wird "clearen".

Grüße
Klaus