Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

DBComboBox   Найти похожие ветки 

 
jacksotnik   (2012-04-23 10:23) [0]

Всем привет. Подскажите можно-ли как-то реализовать такое средствами только DBComboBox.
Подключаю datasource и datafield к комбобоксу, затем заполняю айтемсы у него(текстовые значения) но поле в БД у меня int. Ну собственно вот и задача отобразить в ДБКомбике текстовые значения а в базу чтоб писались соответствующие им int значения. Несколько вариантов реализации есть но я хочу узнать можно-ли это сделать только средствами DBComboBox


 
AV ©   (2012-04-23 12:27) [1]

TDBLookupComboBox?

или делал как-то с обычным TComboBox
сейчас точно не вспомню, как-то так
type
 TMYOB = class
   ID: Integer;
 end;

var
 MyOb : TMYOB;
begin
MyOb := TMYOB.Create;
MyOb.ID := 121212;
ComboBox1.AddItem("fgfgfgfgfg", MyOb);
MyOb := TMYOB.Create;
MyOb.ID := 2323232;
ComboBox1.AddItem("qqqsdsdsdgfg", MyOb);
end;

procedure TfrmToStart.ComboBox1Change(Sender: TObject);
begin
 ShowMessage( IntToStr( TMYOB(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).ID ));


 
sniknik ©   (2012-04-23 12:50) [2]

> как-то так
ради одного инт значения можно не "париться" с объектом, его же после и освобождать желательно...
просто привести число к TObject, а читая делать обратное преобразование. и ни создания ни уничтожения объектов не нужны.


 
AV ©   (2012-04-23 13:31) [3]


> просто привести число к TObject

побоялся :)
а вдруг потом как-нибудь обратишься (м.б., косвенно) и AV словишь..



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

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

Наверх




Память: 0.44 MB
Время: 0.09 c
1-1296196081
Сергей Р.
2011-01-28 09:28
2013.03.22
Ошибка SOAP: Тег конца "head" не соответствует тегу начала "meta"


1-1295420389
noob_one
2011-01-19 09:59
2013.03.22
DBGridEh. Как программно скопировать в буфер обмена?


15-1340647283
Ega23
2012-06-25 22:01
2013.03.22
Мопед не мой, я только разместил объяву.


2-1332577830
Pcrepair
2012-03-24 12:30
2013.03.22
TStringList и перевод символов в нижний регистр


15-1337956188
Pit
2012-05-25 18:29
2013.03.22
Кайт Томас, Oracle





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский