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