Я не понимаю вашу проблему, но я могу дать идеи, как я понимаю. Во-первых, если вы хотите добавить FruitDB.datas в combobox, используйте formattext или // выберите x из списка фруктов по fruitid asc cb> style = dropdownlist и CB> add (Trim (имя фрукта) + пробел (5) + inttostr (Fruitid)) ; (apple 1 pear 11 apricot 12) создать 2 строки возврата функции и целое число для первого пробела для i целого i = posstr ('', cmb.item [x]) и fruitname = copy (cmb.item [x], i, 0) и fruitid = copy (реверс (cmb.item [x]), Length (cmb.item [x]) - (длина (имя плода) +5), 0)
и снова создайте 1 функцию для indexof элементов return integer, например seekincmb (fruitnm: string): integer для id = 0 для iemcount -1do, если fruitname (cmb.item [id]) = fruitnm, тогда результат: = id break или если вам нужно fruitid, вы можете добавить его тоже. вы вызываете их в cmbOnchange или OndrawItem или где хотите. если вы не выполняете поиск в комбо, используйте функцию cmb.drawitem и fruitname для элемента отображения, если вы хотите, чтобы поиск по комбо, поместил поле редактирования в поле со списком и зафиксировал край, editonchange или keypress или keyup, ищите cmb.itemindex: = seekincmb (edittext);