Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TComboBox и БД [D5, IB6.x]


user2 ©   (2003-04-14 17:12:00) 

Уважаемые, Мастера!
Помогите написать процедуру. Есть компонент TСomboBox.
Заполняю его в цикле данными запроса:
while …
ComboBox.Items.AddObject(Query.Fields[1].AsString,
TObject(Q.Fields[0].AsInteger));
……

Соответственно : текстовое поле и ключевое ID(integer).
Проблема в следующем.
Нужно программно осуществить выбор и отображение
из списка ComboBox нужного элемента, используя лишь ID,
в данном случае это:

Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);

Для наглядности:
Заполним ComboBox(способом указанным выше) данными:
где:
Текстовое поле ID

Килька 3
Ставрида 5
Минтай 7

Допустим, мне нужно, чтобы в поле ComboBox отобразилось
“Минтай”,причем сделать это нужно лишь программно доступом через ID ( он известен,в данном случае – 7 )

begin
// Огромное спасибо, тому кто не откажет в помощи
end


Zacho   (2003-04-15 06:54:00) [1]

Согласен с Натальей, но если тебе нужен именно ComboBox, то используй
ComboBox.ItemIndex:=ComboBox.Items.IndexOfObject(TObject(ID))


Наталия   (2003-04-15 06:23:00) [2]

Мне кажется, что для этой цели лучше воспользоваться DBLookUpCombobBox.


Наверх

Титульная страница Поиск, карта сайта Написать письмо