Listbox Werte speichern und laden

[mind87]

Guten Tag,

suche eine Möglichkeit um Werte einer Listbox in einem selbtwählbaren Pfad in einer Datei abzuspeichern und diese wieder laden zu können. Habe schon ein in der Delphi Hilfe nachgeschaut und auch gegooglet. Finden konnte ich bisher nur diese eine Methode:

Speichern:
listbox1.items.SaveToFile('test.dat'); Laden:
listbox1.items.LoadFromFile('test.dat'); Gibt es beim speichern und laden der Listbox eine Möglichkeit direkt die Datei über den Windows Explorer aus Delphi heraus aufzurufen?

Gruß

[mkinzler]

Ja TOpenDialog, TSaveDialog

[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;

[Neutral General]

Zitat von 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:

Gibs zu, du weißt selbst nicht was die Zeile hier bedeuten soll oder?

SaveDialog.listbox1.items;

SaveDialog selbst kann nicht speichern. Es ist nur eine GUI für den User damit dieser einen Speicherort aussuchen kann.. Speichern musst du schon selbst:

Delphi-Quellcode:

// Einfacher gehts auch wenn du eine SaveDialog Komponente auf die Form ziehst...
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    ListBox1.Items.SaveToFile(SaveDialog1.Filename);
    MessageDlg('Datei wurde unter '+SaveDialog1.FileName+ ' erfolgreich'+ #13 +
'gespeichert',mtInformation,[mbOK],0);
  end
  else
    MessageDlg('Speichern wurde abgebrochen',mtError,[mbOK],0);
end;

Gruß
Neutral General

[mind87]

Zitat von Neutral General:

Zitat von 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:

Gibs zu, du weißst selbst nicht was die Zeile hier bedeuten soll oder?

SaveDialog.listbox1.items;

SaveDialog selbst kann nicht speichern. Es ist nur eine GUI für den User damit dieser einen Speicherort aussuchen kann.. Speichern musst du schon selbst:

Delphi-Quellcode:

// Einfacher gehts auch wenn du eine SaveDialog Komponente auf die Form ziehst...
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    ListBox1.Items.SaveToFile(SaveDialog1.Filename);
    MessageDlg('Datei wurde unter '+SaveDialog1.FileName+ ' erfolgreich'+ #13 +
'gespeichert',mtInformation,[mbOK],0);
  end
  else
    MessageDlg('Speichern wurde abgebrochen',mtError,[mbOK],0);
end;

Gruß
Neutral General

Du hast recht, wußte es nicht. Vielen Dank.

[mkinzler]

Man könnte auch die Hilfe konsultieren

[Matze]

Bemerkung am Rande, @mind87: Wenn du Dinge zitieren möchtest, dann bitte nur den Teil, auf den du dich beziehst. Wenn jeder den kompletten Beitrag zitieren würde, dann müsste man sehr viel scrollen und nach den eigentlichen Beitragstexten suchen.

[mind87]

Zitat von Matze:

Bemerkung am Rande, @mind87: Wenn du Dinge zitieren möchtest, dann bitte nur den Teil, auf den du dich beziehst. Wenn jeder den kompletten Beitrag zitieren würde, dann müsste man sehr viel scrollen und nach den eigentlichen Beitragstexten suchen.

Sehe ich ein. Beim nächstes mal dann.