如何按說明對TcxImageComboBox的項進行排序？

Question

我找到了一個很好的組件實現字幕< - >值列表的組合框：

Is there a ComboBox that has Items like a TcxRadioGroup?

唯一的問題是：它有一個排序屬性，但不起作用。

那麼，如何排序TcxImageComboBox的項目？

Answer 1

快速和骯髒的方法，應該工作正常在大多數情況下：

function CompareItems(AFirst: TcxImageComboBoxItem; ASecond: TcxImageComboBoxItem): Integer; 
begin 
    Result := AnsiCompareText(AFirst.Description, ASecond.Description); 
end; 

procedure SortCxComboBoxItems(AItems: TcxImageComboBoxItems); 
var 
    I : Integer; 
    J : Integer; 
    PMin : Integer; 
begin 
    AItems.BeginUpdate; 
    try 
    // Selection Sort (http://en.wikipedia.org/wiki/Selection_sort) 
    for I := 0 to AItems.Count - 1 do 
    begin 
     PMin := I; 
     for J := I + 1 to AItems.Count - 1 do 
     begin 
     if CompareItems(AItems[J], AItems[PMin]) < 0 then begin 
      PMin := J; 
     end; 
     end; 
     if PMin <> I then 
     begin 
     AItems[PMin].Index := I; 
     end; 
    end; 
    finally 
    AItems.EndUpdate; 
    end; 
end;