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]

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

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

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