Zitat von
mkinzler:
Ja TOpenDialog, TSaveDialog
Danke für die Antwort. Habe leider keine Idee wie das mit der Listbox funktionieren soll. Hier der Code den ich bis jetzt habe:
Delphi-Quellcode:
procedure TForm1.BitBtn3Click(Sender: TObject);
var saveDialog : TSaveDialog;
begin
SaveDialog.listbox1.items;
saveDialog:=TSaveDialog.Create(self);
saveDialog.Title:='Speichern';
saveDialog.InitialDir:=GetCurrentDir;
saveDialog.Filter:='Text file|*.txt';
saveDialog.DefaultExt:='txt';
saveDialog.FilterIndex:=1;
if saveDialog.Execute then
MessageDlg('Datei wurde unter '+saveDialog.FileName+ ' erfolgreich'+ #13 +
'gespeichert',mtInformation,[mbOK],0)
else
MessageDlg('Speichern wurde abgebrochen',mtError,[mbOK],0);
saveDialog.free;
end;