Eingaben individuell abspeichern

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringlist;
  Dateiname: string;
begin
  List := TStringlist.Create;
  try
    List.Add(Edit1.Text);
    Dateiname := Format('C:\Users\Maxi\Desktop\Neuer Ordner\%s.txt', [Edit1.Text]);
    List.SaveToFile(Dateiname);
  finally
    list.Free;
  end;
end;