Listbox abspeichern?[weitere Frage!!!]

[jaslaz]

Hallo zusammen,

Mein Problem ist es, dass ich eine Listbox in einer .txt Datei abspeichern will:

Code: Alles auswählen

procedure TForm1.Button5Click(Sender: TObject);
Var liste: Tstrings;
Begin
liste:=Tstringlist.Create;
liste.Add(listbox1.Items[0]);
liste.Add(listbox2.Items[0]);// und so weiter...
liste.SaveToFile(FileNameEdit1.filename);
liste.Free;
end;

Das ist der Code was ist falsch daran?

Danke schon mal im vorraus, Jaslaz.

[Teekeks]

Code: Alles auswählen

procedure TForm1.Button5Click(Sender: TObject);
    Var liste: Tstringlist;
    Begin
    liste:=Tstringlist.Create;
    liste.Add(listbox1.Items[0]);
    liste.Add(listbox2.Items[0]);// und so weiter...
    liste.SaveToFile(FileNameEdit1.filename);
    liste.Free;
    end;

TStrings ist nur Virtuell.
Es wäre aber besser gewesen wenn du eine Fehlermeldung mitgegeben hättest.

[jaslaz]

Das bringt auch nichts!

Es gibt keine Fehlermeldung,das programm startet auch aber wenn ich auf den Speicherbutton drücke zeigt das programm eine Errormeldung an.

----------------------------------------------------------------------------------------------
Es geht jetzt doch, nach dem ich Lazarus neu gestartet habe,Danke!

[marcov]

Code sieht korrekt aus. Aber nur wenn es tatsächlich ein listbox1.Items[0] gibt. (also wenn assigned(listbox1) and (listbox1.items.count>0) )

[jaslaz]

Wie kann ich Abfragen wie viele Zeilen in einer listbox benutzt werden???

Code: Alles auswählen

Var liste: Tstringlist;x:integer;
Begin
liste:=Tstringlist.Create;
 
for x:=0 to 50 do// hier will ich nicht 50 sondern die menge der zeilen in der listbox !
begin
liste.Add(listbox1.items[x]);
liste.Add(listbox2.items[x]);
end;
liste.SaveToFile(FileNameEdit1.filename);
liste.Free;

[carli]

Code: Alles auswählen

Var liste: Tstringlist;x:integer;
Begin
liste:=Tstringlist.Create;
 
for x:=0 to listbox1.items.count-1 do// hier steht nicht 50, sondern die menge der zeilen in der listbox !
begin
liste.Add(listbox1.items[x]);
liste.Add(listbox2.items[x]);
end;
liste.SaveToFile(FileNameEdit1.filename);
liste.Free;

[/quote]

[Socke]

Kann man nicht direkt Folgendes aufrufen?

Code: Alles auswählen

listbox1.Items.SaveToFile(FileNameEdit1.filename);

Solange keine Auswahl getroffen und alle Einträge gespeichert werden, sehe ich keinen Grund, die Referenzzählung für Strings unnötig zu belasten.

[carli]

Kann man nicht direkt Folgendes aufrufen?

Code: Alles auswählen

listbox1.Items.SaveToFile(FileNameEdit1.filename);

Solange keine Auswahl getroffen und alle Einträge gespeichert werden, sehe ich keinen Grund, die Referenzzählung für Strings unnötig zu belasten.

Er will die Zeilen ja vor dem Speichern verdoppeln (lese ich zumindest aus dem Code heraus)

[Teekeks]

Auch falsch, er speichert in liste abwechselnd immer eine Zeile von ListBox1 und eine von ListBox2, also verschiedene Zeilen.

[Socke]

Auch falsch, er speichert in liste abwechselnd immer eine Zeile von ListBox1 und eine von ListBox2, also verschiedene Zeilen.

Da hab ich wohl was überlesen;
An irgendeiner Stelle sollte aber sichergestellt werden, dass beide Listen auch die gleiche Länge haben

[Targion]

Code: Alles auswählen

var liste: TStringList;
 i: Integer;
 maxcount: Integer;
begin
liste := TStringList.Create;
 
if listbox1.items.count > listbox2.items.count then
 maxcount := listbox1.items.count
else
 maxcount := listbox2.items.count;
 
for i := 0 to maxcount - 1 do// hier steht nicht 50, sondern die zeilenlänge der "längeren" listbox!
begin
if i < listbox1.items.count then
liste.Add(listbox1.items[i]);
if i < listbox2.items.count then
liste.Add(listbox2.items[i]);
end;
liste.SaveToFile(FileNameEdit1.filename);
liste.Free;