combobox

[SeMgA]

Добрый день
сегодня столкнулся с одним вопросом в котором совершенно не смыслю
у меня есть функция
write_value
в ней есть строка
write_value($0000001,1,res)
каким образом можно совместить комбобокс и данную строку чтоб получилось например так
в комбо боксе выбираем пункт 1 ИД у него 0 (яблоко)
адрес меняется на 0000002
потом банан 0000003
итд.
помогите пожалуйста за ранее благоарен

[Прик]

У комбобокса помимо списка Items есть список Objects. Оба списка корреспондируются (сколько элементов в Items, столько и в Objects).
"Адреса" можно хранить в Objects, т.к. это элементы типа TObject, т.е. указатели, которые могут хранить и целочисленные значения.

[SeMgA]

Сообщение от Прик

У комбобокса помимо списка Items есть список Objects. Оба списка корреспондируются (сколько элементов в Items, столько и в Objects).
"Адреса" можно хранить в Objects, т.к. это элементы типа TObject, т.е. указатели, которые могут хранить и целочисленные значения.

а как реализовать можно я не понимаю
объясните на примере плиз

[Прик]

Запись в комбобокс:
    ComboBox1.Items.AddObject('текст, например, Яблоко', Pointer(2));
Чтение:
   index := ComboBox1.Items.Objects[ComboBox1.ItemIndex];

[SeMgA]

Сообщение от Прик

Запись в комбобокс:
    ComboBox1.Items.AddObject('текст, например, Яблоко', Pointer(2));
Чтение:
   index := ComboBox1.Items.Objects[ComboBox1.ItemIndex];

если я правильно понял то должно будет выглядеть так?:

ComboBox1.Items.AddObject('текст, например, Яблоко2', Pointer(2));
ComboBox1.Items.AddObject('текст, например, Яблоко3', Pointer(3));
ComboBox1.Items.AddObject('текст, например, Яблоко4', Pointer(4));
ComboBox1.Items.AddObject('текст, например, Яблоко5', Pointer(5));
write_value(Pointer,1,res)

верно я понимаю?

From Stilet: И попрошу на следующий раз код выделять спецтегом по правилам!

[Stilet]

Верно. А получать данные так:

with ComboBox1 do begin
 Текст:=Items[номер];
 Кол-во:=Integer(Items.Objects[номер])
end;

[SeMgA]

Сообщение от Stilet

Верно. А получать данные так:

with ComboBox1 do begin
 Текст:=Items[номер];
 Кол-во:=Integer(Items.Objects[номер])
end;

начинает грязно ругаться

[DCC Error] Unit2.pas(211): E2029 '(' expected but ',' found
write_value(Pointer,1,res); на эту строку

[phomm]

ексупто в ытапелеТ

Проект выложите, попробуем исправить.
А то Вам про Фому, а Вы про Ерёму.

[Stilet]

начинает грязно ругаться

А мой пример тут ни при чем. Клянусь своей треуголкой

[SeMgA]

Буду дома выложу с собой нету