1 нюанс работы с комбобокс

← →
Тамды © (2006-04-04 08:10) [0]

Здравствуйте.
Извиняюсь, если мой вопрос был задан ранее...Но я в поиске не нашел.

есть таблица БД
id name
1 АА
2 ПП
3 КК

загружаю значения name в Комбобокс.

while not qTemp.Eof do
begin
cbFil.Items.Add(qTemp.FieldByName("name").AsString);
qTemp.Next;
end;

И в дальнейшем я использовал свойство ItemIndex+1.. чтобы с кодом совпадало . Но это не верно..
если допустим таблица будет такого вида:
id name
1 АА
2 ПП
4 КК

Т.е. как я могу в комбобоксе работать и с NAME и с ID ??

Заранее спасибо.

← →
Dmitrij_K (2006-04-04 08:20) [1]

ComboBox1.Items.IndexOf ???

← →
Тамды © (2006-04-04 08:38) [2]

А как заюзать ьтак чтобы при выборе из списка "КК" я мог получить 4 ?

← →
MBo © (2006-04-04 08:40) [3]

>А как заюзать ьтак чтобы при выборе из списка "КК" я мог получить 4 ?
Используй AddObject с приведением типа id- Integer к Pointer

← →
Тамды © (2006-04-04 08:46) [4]

MBo,

если Вас не затруднит, приведите пожалуйста пример..
спасибо.

← →
MBo © (2006-04-04 08:49) [5]

пример есть в справке по TStrings.AddObject

← →
Тамды © (2006-04-04 09:21) [6]

Вопрос снят..

while not qTemp.Eof do
begin
cbObj:=TcbObj.Create;
cbFil.Items.AddObject(qTemp.FieldByName("name").AsString, cbObj);
cbObj.value := qTemp.FieldByName("id").AsInteger;
qTemp.Next;
end;

← →
MBo © (2006-04-04 09:29) [7]

использование объекта здесь излишне:

IntVar := qTemp.FieldByName("id").AsInteger;
cbFil.Items.AddObject(qTemp.FieldByName("name").AsString, Pointer(IntVar));

Господа, а чем плох TDBLookupComboBox?

> Anatoly Podgoretsky © (04.04.06 10:06) [9]
> Guf © (04.04.06 09:47) [8]
> А у кого то есть претензии к нему?

Есть навязчивое подозрение, что автор о нем не в курсе

1 нюанс работы с комбобокс Найти похожие ветки