txt-Datei überspeichern

[DeddyH]

Und so?

Delphi-Quellcode:

procedure TForm1.bt_konvertierenClick(Sender: TObject);
var Datei : String;
    txt_Dokument : TStringlist;
    erste_Zeile : String;
begin
  Datei := Pfad;
  txt_Dokument := TStringlist.Create;
  try
    txt_Dokument.LoadFromFile(Datei);
    erste_Zeile := copy(txt_Dokument.Text,0,17);
    txt_Dokument.Add(erste_Zeile);
    txt_Dokument.SaveToFile(Datei);
  finally
    txt_Dokument.Free;
  end;
end;

Allerdings glaube ich selbst nicht daran, dass so das Problem gelöst ist