Lade die Liste erst mit dupIgnore in eine TStringsList und kopiere das Ergebnis dann EnBlock in die ComboBox.
Ist auch noch viel schneller als die Strings einzeln in die ComboBox zu bringen.
Danke für eure Antworten
wie kann man die strings in der liste aufaddieren? denn die Liste läuft innerhalb einer while schleife und deshalb wird nur der letzte Eintrag zu der liste hinzugefügt.
Code:
stringlist:=TStringList.Create;
stringlist.Sorted:=true;
stringlist.Duplicates:=dupIgnore;
with stringlist do
begin
add(etabelle.cells[1,i]);
end;
with ListBox1 do
begin
items.Assign(stringlist);
end;
stringlist.free;