Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

Как в ComboBox занести два значения   Найти похожие ветки 

 
AndrewK ©   (2002-01-23 14:49) [0]

Подскажите, пожалуйста, как в стандартный ComboBox можно вставить два значения.
Мне надо, выбрать из базы два значения - код и название. Название надо отобразить в списке ComboBox`а, а для работы мне надо знать сопряженный с названием код. Как мне вставить код в ComboBox чтобы его не было видно и как мне его оттуда достать?


 
MBo ©   (2002-01-23 14:57) [1]

combobox1.items.addobject("1",tobject(5));

label1.caption:=inttostr(integer(combobox1.Items.Objects[0]));


 
AndrewK ©   (2002-01-23 15:56) [2]

Спасибо


 
MBo ©   (2002-01-23 16:01) [3]

вообще аккуратнее и универсальнее, конечно, так

TCode=class
Cod:Integer;
...//другие поля, если надо
end;

aname:=getname;
code:=getcode;
combobox1.items.addobject(aname,code);

label1.caption:=inttostr(tcode(combobox1.Items.Objects[0]).cod);



 
AlexR_R   (2002-01-23 16:08) [4]

Если ты точно знаешь, что будет только два поля, то проще делать так.

sName:="qqq";
ID:=1;
combobox1.items.addobject(sName,Pointer(ID));

label1.caption:=
inttostr(Integer(combobox1.Items.Strings[0])); //Имя
label2.caption:=
inttostr(Integer(combobox1.Items.Objects[0]));//ID


В этом случает нет геммороя связанного с созданием и удалением объектов.


 
AndrewK ©   (2002-01-23 16:30) [5]

Спасибо всем



Страницы: 1 вся ветка

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-18857
@andrew
2002-01-21 11:15
2002.02.07
Привет Всем! У меня почему-то такой глюк.


6-18934
SemFLY
2001-11-13 20:21
2002.02.07
Какая команда в Windows разрывает соединение с интеренетом ?


14-18973
V-o-y-a-g-e-r
2001-12-19 15:03
2002.02.07
Компонент Вольтметр !!!


3-18754
EAlexander
2002-01-11 15:29
2002.02.07
ODAC 3.30


1-18902
cyborg
2002-01-21 21:19
2002.02.07
Как вывести текст в TImage чтобы фон у него был прозрачный?