Выставить текущим нужное значение комбобокса, зная что у него в TObject(число)

[malor]

У меня есть тексты ответов и соответствующие им ID из БД.

В расположенный на форме комбобокс это было все в цикле помещено:
combobox.AddItem(TextAnswer, TObject(idAnswer));

А затем. на OnShow формы я хочу чтоб в комбобоксе был выбран вариант соответствующий определенному ID. Как это элегантно сделать?

[RXL]

Ассоциированный с элементом указатель на TObject не управляется VCL и можно делать с ним что угодно, в том числе хранить в нем целое. Хотя это и не кошерно, но много проще, чем делать ненужные клоны TObject и следить за их своевременным удалением. Альтернативой было бы сделать класс, наследованный от TComboCustom и хранить там все, что захочется.

[zubr]

Если число элементов комбобокса небольшое (до 100) то проще простым перебором, типа:

Код:

for i := 0 to ComboBox1.Items.Count - 1 do
if Integer(ComboBox1.Items.Objects[i]) = id then
begin
   ComboBox1.ItemIndex := i;
   break;
end;

Иначе, лучше воспользоваться ассоциативным массивом типа сишного мапа, где увязать ид (в качестве ключа) с индексом комбобокса.
К примеру, можно воспользоваться готовым решением: __http://antidot-library-2009.en.softonic.com/

[malor]

Перебором реализовал, т.к. число элементов невелико.
Спасибо RXL и zubr за оперативные ответы!

[RXL]

Извиняюсь, пример для BCB, но не трудно оттранслировать его в Delphi.

Код: (C++)

class TGUIService
{
    public:
        typedef enum
        {
            none = 0,
            change,
            click
        } TCBAction;

        static int __fastcall setComboByShadow(TComboBox *cb, int shadow, bool reset = false, TCBAction activate = TGUIService::none);
};

int __fastcall TGUIService::setComboByShadow(TComboBox *cb, int shadow, bool reset, TCBAction activate)
{
    int i;

    for (i = 0; i < cb->Items->Count; i++)
        if (((int)(void*)cb->Items->Objects[i]) == shadow)
        {
            cb->ItemIndex = i;
            break;
        }

    if (i == cb->Items->Count && reset)
    {
        if (cb->Style == csDropDown)
            cb->Text = "";

        cb->ItemIndex = -1;
    }

    switch (activate)
    {
        case TGUIService::change:
            cb->OnChange(cb);
            break;
        case TGUIService::click:
            cb->OnClick(cb);
            break;
    }

    return cb->ItemIndex;
}

Код рабочий. Конечно, это фрагмент - у меня целая куча такого "сервиса" накопилась.

Кстати, быстро работает на списках в несколько тысяч элементов. Аналогичная задача на VB требует ресурсов на несколько порядков больше.