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

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

Как мне к каждому итемсу комбоБокса прицепить уникальный номер?? [D6]

Страницы:   < 1 2 >

Relaxxx ©   (2004-07-13 15:21:00) 

Я с БД выбираю список людей, например, и записываю их в КомбоБокс, но как мне к каждому челове еще и привязать уникальный номер человека???

---

ЮрийК   (2004-07-13 15:30:00) [21]

comboBox.Items[i] := sFIO + #0 + IntToStr(nUniq);

---

REA   (2004-07-13 15:30:00) [22]

procedure AddItem(Item: String; AObject: TObject);

Который AObject - это связанный человек. Можно туда Integer засунуть вместо TObject.
А лучше используй DBLookupComboBox.

---

KSergey   (2004-07-13 15:29:00) [23]

ComboBox1.Items.Objects[i]

Пример:

Val: Integer;
...
ComboBox1.Items.Objects[i] := TObject(Val);  // сохранили Val
...
Val := Integer(ComboBox1.Items.Objects[i]);  // прочитали Val

Надеюсь ничего не напутал.

---

Страницы:   < 1 2 >

Наверх