delphi - 从组合框中删除重复项

Question

假设我有一个带有

的组合框

apples
apples
pears
oranges
oranges

我想让它显示

apples
pears
oranges

我该怎么做？

Answer 1

for iter := combobox.Items.Count - 1 downto 0 do
begin
  index := combobox.Items.IndexOf(combobox.Items[iter]);
  if index < iter then
    combobox.Items.Delete(iter);
end;