Вниз
Скачать: CL | DM;

ComboBox се отбражалось одно а поиск шел по   Найти похожие ветки 

← →
ceval   (2004-03-15 17:43) [0]

ПРивет всем!, может кто знает!!!
Есть таблица с полями "kod,"odd", и так подобно
вывожу следующим  образом :
  ADOTable1.FieldByName("kod").DisplayLabel:="Код"
и потом в ComboBox:
  ...................
   for  i :=0  to adotable1.FieldCount-1  do
    begin
           Combobox1.Items.Add(adotable1.Fields[i].FieldNamel)
       .............
для выбора по каким полям делать поиск:
    .........
ADOTable1.Locate(comboBox1.Text,Edit1.text,[locaseinsensitive,lopartialkey])
в ComboBox"се отображается поля "kod,"odd", - все работает нормально !
Но я хочу чтобы в ComboBox"се отбражалось не "kod" а названия поля "Код"
но если делаешь:
for  i :=0  to adotable1.FieldCount-1  do
    begin
           Combobox1.Items.Add(adotable1.Fields[i].DisplayLabel)
   поиск не работает выдается ошибка

как сделать что бы в ComboBox"се отбражалось названия поля "Код"
а поиск шел по "kod"  !???
Большое спасибо.


← →
Vlad ©   (2004-03-15 17:54) [1]

Combobox1.Items.AddObject


← →
ceval   (2004-03-16 10:30) [2]

Хорошо я дальше как?, если не затруднит
то можно расшифровать
большое спасибо!!!


← →
Vlad ©   (2004-03-16 10:53) [3]

Call AddObject to add a string and its associated object to the list.
Это из хелпа. Метод добавляет не только строку, как в твоем варианте с Items.Add, но еще и ассоциированный с этой строкой объект. Соответственно этим объектом может быть что угодно, в том числе и указатель на некую другую строку. Собственно то что тебе и надо. В самом списке ты хранишь русские наименования полей, а в ассоциированных объектах - латинское.
Хороший пример есть в справке TStrings.AddObject



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c
11-1058782440
VitalMoya
2003-07-21 14:13
2004.04.11
TWebBrowser


3-1081952957
raul
2004-04-14 18:29
2004.04.11
почему в живых запросах вертикальная полоса прокрутки неправильн


4-1079373919
Константин
2004-03-15 21:05
2004.04.11
Замена названия окна программы


4-1075492801
Xerx
2004-01-30 23:00
2004.04.11
системное меню


14-1082333245
Dudao
2004-04-19 04:07
2004.04.11
Delphi 8 VCL form application




   Наверх