送分***

Question

var
  a: TStrings;begin
  a := TStringList.Create;
  with TStringList(a) do
  begin
    Sorted := True;
    Duplicates := dupIgnore;
  end;
  a.Assign(combobox1.Items);
  combobox1.Items := a;

Answer 1

任何一种排序的方法都可以借过一用（如：冒泡法） :
  不过要注意找一相同的项时应先作标记，找完了再一次删除去。
  （一边找一边删除，combobox1.Items.count会改变）

Answer 2

任何一种排序的方法都可以借过一用（如：冒泡法） :
  不过要注意找一相同的项时应先作标记，找完了再一次删除去。
  （一边找一边删除，combobox1.Items.count会改变）