Ich habe wieder einmal ein Verständnisproblem. Ich versuche eine Schleife zu durchlaufen und möchte nachdem der letzte Eintrag einer Listbox durchlaufen wurde, einen Prozess in Gang setzten.
Hier der Schleifenaufruf:
Delphi-Quellcode:
procedure TBrennWizard3.Button4Click(Sender: TObject);
var
i: Integer;
begin
if ListBox1.Count > 0 then begin
for i := 0 to ListBox1.Items.Count - 1 do
ListBox1.ItemIndex:= 0;
ListBox1Click(nil);
Timer4.Enabled:=True;
end else begin
Timer4.Enabled:=False;
Label9.Visible:=False;
BurnCD;
Timer2.Enabled := True;
end;
end;
procedure TBrennWizard3.Timer4Timer(Sender: TObject);
begin
Timer4.Enabled:=False;
mcdb.InsertFile('\', Edit1.Text);
ListBox1.DeleteSelected;
Button4Click(nil);
end;
Hierbei wird bei jedem Durchlauf der erste Eintrag entfernt und der nächste neue Eintrag, der nun an erster Position gerutscht ist, ausgewählt. Leider bekomme ich als Quittung den berühmten
Satz: "Listenindex überschreitet das Maximum (-1)". Wo könnte der Fehler liegen?