Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

Спасибо всем



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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
6-18924
Arseny
2001-11-12 20:59
2002.02.07
Client-Server


1-18817
СергейС
2002-01-25 13:52
2002.02.07
Ну очень общий вопрос!!


14-18986
programmer1
2001-12-19 21:28
2002.02.07
Совместимость 5й и 4й версий дельфи и назначение rx units


1-18804
zool
2002-01-24 20:27
2002.02.07
Компоненты


1-18886
sd
2002-01-23 13:51
2002.02.07
TAction





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский