Ich habe eine Listbox mit x Items. Nun will ich alle items (mit gleichem string) löschen...
Mein Code:
Delphi-Quellcode:
procedure TForm2.SpeedButton7Click(Sender: TObject);
var
I,A:integer;
begin
for I:=0 to ListBox2.Count-1 do
for A:=1 to ListBox2.Count do
begin
if ListBox2.Items.Strings[i]=ListBox2.Items.Strings[a] then
begin
ListBox2.items.Delete(ListBox2.ItemIndex);
end;
end;
end;
Der Compiler löscht zwar einen doppelten wert, jedoch müsste ich ein paar mal auf den Button drücken, damit er alle doppelten, dreifachen... Strings korrket löscht. Zudem bekomme ich immer eine Fehlermeldung, das der listenindex überschritten wird.
Diesmal würde mir auch ein link weiterhelfen, habe nämlich mal wieder nichts gefunden...
(
Wissen ist zu wissen wo es steht...
)->Also bin ich doof...
