Such Algorithmus(zweier Identischer Strings)

[Catbytes]

Gegeben ist eine Listbox mit:
a
a
a
b
b
b

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Liste: TStringList;
begin
  Liste := TStringList.Create;
  Liste.Clear;
  Liste.Sorted := true;
  Liste.Duplicates := dupIgnore;
  Liste.AddStrings(ListBox1.Items);
  ListBox1.Clear;
  ListBox1.Items := Liste;
  Liste.Free;
end;

Ergebnis:
a
b