![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
1 нюанс работы с комбобокс [D7, WinXP]
Тамды © (2006-04-04 08:10:00)Здравствуйте.
Извиняюсь, если мой вопрос был задан ранее...Но я в поиске не нашел.
есть таблица БД
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 ??
Заранее спасибо.
KSergey (2006-04-04 12:43:00) [1]> Anatoly Podgoretsky © (04.04.06 10:06) [9]
> Guf © (04.04.06 09:47) [8]
> А у кого то есть претензии к нему?
Есть навязчивое подозрение, что автор о нем не в курсе
Anatoly Podgoretsky (2006-04-04 10:06:00) [2]Guf © (04.04.06 09:47) [8]
А у кого то есть претензии к нему?
Guf (2006-04-04 09:47:00) [3]Господа, а чем плох TDBLookupComboBox?
MBo (2006-04-04 09:29:00) [4]использование объекта здесь излишне:
IntVar := qTemp.FieldByName('id').AsInteger;
cbFil.Items.AddObject(qTemp.FieldByName('name').AsString, Pointer(IntVar));
Тамды (2006-04-04 09:21:00) [5]Вопрос снят..
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 08:49:00) [6]пример есть в справке по TStrings.AddObject
Тамды (2006-04-04 08:46:00) [7]MBo,
если Вас не затруднит, приведите пожалуйста пример..
спасибо.
MBo (2006-04-04 08:40:00) [8]>А как заюзать ьтак чтобы при выборе из списка "КК" я мог получить 4 ?
Используй AddObject с приведением типа id- Integer к Pointer
Тамды (2006-04-04 08:38:00) [9]А как заюзать ьтак чтобы при выборе из списка "КК" я мог получить 4 ?
Dmitrij_K (2006-04-04 08:20:00) [10]ComboBox1.Items.IndexOf ???