Hallo !
Brauche mal wieder eure hilfe!
Ich möchte in einer ListBox mehrere selektierte Einträge löschen.
Ich habe es damit mal versucht,doch es funktioniert nicht richtig.
Delphi-Quellcode:
procedure TForm1.BitBtn8Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to ListBox2.Items.count-1 do
if ListBox2.Selected[i]=True then
ListBox2.Items.Delete(i);
end;
dann macht er aber probleme und bringt die Fehlermeldung: Der Index der liste überstreitet das maximum
Ich weiss wo der Fehler liegt, aber weiss nicht wie ich es anders machen soll.
habt ihr ne Idee?
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]