如何对组合框中的项目进行排序？

Question

我有一个组合框，我向其中添加了一些数字，如以下代码所示

combobox1.Items.BeginUpdate;
try
  combobox1.Sorted := True;
  combobox1.Items.Add('0');
  combobox1.Items.Add('2');
  combobox1.Items.Add('1');
  combobox1.Items.Add('3');
  combobox1.Items.Add('5');
  combobox1.Items.Add('4');
finally
  combobox1.Items.EndUpdate;
end;

我想在 combobox.

中将这些数字排序为 0,1,2,3,4,5... 等等

我启用了排序属性但项目没有排序。

我怎么可能对 combobox 中带有数字的项目进行排序？

我使用以下代码从 TList 加载 combobox 中的项目：

var
  J : integer;
  themes : Tthemes;
begin
  ComboBox1.Items.BeginUpdate;
  try
    ComboBox1.Sorted := True;
    for J := 0 to listitems.Count - 1 do
    begin
      themes := listitems.Items[J];
      ComboBox1.Items.Add(themes.designid);
    end;
  finally
    ComboBox1.Items.EndUpdate;
  end;

  ComboBox1.ItemIndex := 0;

Answer 1

试试这个：

  combobox1.Sorted := False;
  combobox1.Items.Add('0');
  combobox1.Items.Add('2');
  combobox1.Items.Add('1');
  combobox1.Items.Add('3');
  combobox1.Items.Add('5');
  combobox1.Items.Add('4');
  combobox1.Sorted := True;

如何对组合框中的项目进行排序？

how to sort items inside a combobox?

delphi

delphi-xe7

delphi-xe8