Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ComboBox'се отбражалось одно а поиск шел по [D6, D7, dBase, FoxPro]


ceval ©   (2004-03-15 17:43:00) 

ПРивет всем!, может кто знает!!!
Есть таблица с полями '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-16 10:53:00) [1]

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


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

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


Vlad   (2004-03-15 17:54:00) [3]

Combobox1.Items.AddObject


Наверх

Титульная страница Поиск, карта сайта Написать письмо