TfrxCheckListControl.AddItem

Drunk · April 2006

заполняю чеклистбокс именами для последующего выбора

while not qUsers.EOF do
  begin   
    chlbxUsers.AddItem(qUsers.FieldByName('UserName').AsString,
                                              TObject(qUsers.FieldByName('id_User').AsInteger));  
    qUsers.Next;
  end

Error : Undeclared identifier : 'AddItem'
если

while not qUsers.EOF do
  begin   
    chlbxUsers.Items.AddObject(qUsers.FieldByName('UserName').AsString,
                                              TObject(qUsers.FieldByName('id_User').AsInteger));  
    qUsers.Next;
  end

то потом, при : ID_User:=Integer(chlbxUsers.Items.Objects); получаю Error : too many actual parameters.
как быть ?

gpi · April 2006

chlbxUsers.Items.Add('string')

Drunk · April 2006

строку добавить не проблема. потом запрос надо будет сформировать, а ид записей не знаю. как добавить в чеклистбокс запись и id этой записи ?

gpi · April 2006

ID записей параллельно добавляйте в динамический массив либо в StringList

Drunk · April 2006

2 gpi
Спасибо. так и поступим.

atruhin · April 2006

Не нужно паралельного массива
ID_User:=StrToInt(VarToStr(chlbxUsers.Items.Objects);
и все!
Хотя я добавил пользовательскую функцию ObjToInt

TfrxCheckListControl.AddItem

Комментарии

Оставить комментарий