Daten aus Listbox in Array speichern.

[Luckie]

Das hat so keinen Zweck. Wir raten hier nur rum.

[Helmi]

Wo wird eigentlich die Größe des Arrays gesetzt?

Ich vermisse ein SetLength

[Jens Hartmann]

Also, irgendwie alles ein bißchen seltsam,

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject); 
begin 
  zaehler:=0; 
end;

Die Deklaration von Zaehler finde ich nicht, gut vieleicht übersehen. Aber wenn Du Zahler auf 0 setzen tust, im OnShow, was passiert den mit Zaehler nach der Funktion. Vieleicht solltest Du das erstmal so umbauen...

Delphi-Quellcode:

  for I := 0 to Listbox1.Count - 1 do
    begin
      ..

Dann i als Lokal deklariert...

Gruß Jens

[DeddyH]

Zitat:

while zaehler <> listbox1.Count-1 do

Wieso <> ? Was, wenn zaehler durch einen blöden Fehler plötzlich größer ist als die Anzahl der Listbox-Einträge? Dass da außerdem ein SetLength fehlt, hat Helmi ja bereits gesagt.

[himitsu]

Zitat von DeddyH:

Wieso <> ? Was, wenn zaehler durch einen blöden Fehler plötzlich größer ist als die Anzahl der Listbox-Einträge?

Dafür benötigt es nichtmal einen "blöden" Fehler.
zaehler = 0 (bei Programmstart und nach FormShow)
ListBox1 ist leer, demnach
ListBox1.Count-1 = -1

und schwups knallt es

Delphi-Quellcode:

while zaehler <= listbox1.Count-1 do
// oder
while zaehler < listbox1.Count do

Außerdem, wozu eine globale Variable, für eine lokale Schleife?