doppelte einträge löschen

[himitsu]

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;