Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Как в 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]

Спасибо всем




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.049 c
1-18919           Lipskiy               2002-01-22 00:32  2002.02.07  
Проблема с компонентой TTreeView и с указателями в частности.


1-18787           Dmitriy_R             2002-01-21 14:11  2002.02.07  
Как проще сделать что-бы отображать число 1 в виде 01


14-18975          Igor_from_Podolsk     2001-12-18 09:46  2002.02.07  
Помогите!!! Срочно!!! Инсталяция Кристал-репортс 7 в Delhi 5!!!


7-19011           sw                    2001-10-30 10:05  2002.02.07  
прерывание 09 в Windows


1-18835           ТеньЛуны              2002-01-21 15:54  2002.02.07  
Как установить свойство политры компонентов MultiLine в true?