dazu schau dir das mal an...
Delphi-Quellcode:
{
Mit dieser Procedure kann man doppelte Einträge aus den verschiedenen
Komponenten wie z.B. einer ComboBox oder einem Memo entfernen.
}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : integer;
begin
a := 0;
while a <= ComboBox1.Items.count - 2
do
begin
for b := a + 1
to ComboBox1.Items.count - 1
do
begin
if ComboBox1.Items[a] = ComboBox1.Items[b]
then
begin
dec(a);
ComboBox1.Items.delete(b);
break;
end;
end;
inc(a);
end;
label1.Caption := inttostr(ComboBox1.Items.Count - 1);
end;