Listbox Werte speichern und laden

[mind87]

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;