ListBoxen laden

[Nugi89]

Hallo habe folgendes problem,
ich habe den inhalt von 3 ListBoxen in eine Liste gepackt und abgespeichert. Wie kann ich jetzt den inhalt meiner Boxen beim laden wieder herstellen?
Danke schonmal für die Hilfe.

[m.fuchs]

Was meinst du mit "Liste gepackt und abgespeichert"?

[Nugi89]

ich habe mir eine liste erstellt und dort habe ich meine 3 Listboxen eingefügt.

vill hilft ja der code etwas.

Code: Alles auswählen

var
  x:integer;
 
begin
  list:= TStringList.Create;
 
  for x:=0 to ListBox1.Items.Count - 1 do
  begin
    list.add(ListBox1.Items[x]);
    list.add(ListBox2.Items[x]);
    list.add(ListBox3.Items[x]);
  End;
 
  list.SaveToFile(SaveDialog1.FileName + '1');
  list.free;

ListBox 2 und 3 haben immer die selbe anzahl Items wie ListBox 1.

Hoffe es ist einigermaßen verständlich!

[baumina]

Wenn du pro Listbox eine eigene Datei wählen würdest, wärs ganz einfach.

Speichern mit :

Code: Alles auswählen

ListBox1.Items.SaveToFile();

und Laden mit :

Code: Alles auswählen

ListBox1.Items.LoadFromFile();

[Nugi89]

ja so hatte ich es am anfang
waren mir aber dann zu viel Dateien die gespeichert wurden.^^

[baumina]

Dann könntest auch über eine Ini-Datei im Format

Code: Alles auswählen

[ListBox1]
erster Eintrag
zweiter Eintrag
[ListBox2]
LB2 erster Eintrag
[ListBox3]
ListBox3 ein Eintrag
ListBox3 noch ein Eintrag

nachdenken. Da könntest Du mit WriteSection/ReadSection arbeiten.

[theo]

ja so hatte ich es am anfang
waren mir aber dann zu viel Dateien die gespeichert wurden.^^

Spielt das eine Rolle? Alles andere ist komplizierter als nötig.
Wenn du unbedingt willst, kannst du vllt. mit Inifiles was machen. http://wiki.freepascal.org/Using_INI_Files/de

[Nugi89]

Ok danke für die Hilfen^^
ich werde mal mit dem ganzen rum probieren, mal schauen was sich besser macht.

[af0815]

Einen XMLPropStorage aufs Formular und im Objektinspektor unter SessionProperties die Listbox.items auswählen. Dann wird das automatisch gespeichert.

Siehe Wiki TXMLPropStorage