Pfade in Datei speichern und Zeilenweise auslesen

[Schuster]

So geht mal das Zeilenweise reinspeichern in eine txt datei:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  s1: TStringList;
var  s,pfad: String;
begin
    opendialog1.execute;
    pfad:= OpenDialog1.FileName;

  s := ExtractFilePath(Application.ExeName)+ 'Datipfad.txt';
  s1:= TStringList.Create;
  try
    if FileExists(s)
      then s1.LoadFromFile(s);
    s1.Add(Pfad);
    s1.SavetoFile(s);
  finally
    s1.Free;
  end;
end;