Gut, dann hier nochmal die funktionierenden Varianten im Überblick.
Damit diese zumindestens Anderen zur Verfügung stehen und sie sich nicht durch alle probieren müssen. ^^
Delphi-Quellcode:
Procedure TForm1.double_delClick(Sender: TObject);
Var i, k: Integer;
Begin
For i := ListBox1.Count - 2 downto 0 do
For k := ListBox1.Count - 1 downto i + 1 do
If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k] Then
ListBox1.Items.Delete(k);
End;
Delphi-Quellcode:
Procedure TForm1.double_delClick(Sender: TObject);
Var i, k: Integer;
Begin
i := 0;
While i < ListBox1.Count - 2 do Begin
k := i + 1;
While k < ListBox1.Count do
If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k] Then
ListBox1.Items.Delete(k) Else Inc(k);
Inc(i);
End;
End;