Цитата:
Сообщение от Dryid466
{ Private declarations }
procedure TreeViewAddChild(rod, doch: String; db_node_id : integer);
здесь вы имеете в виду? прописал теперь.
|
недостаточно. Это декларация. Теперь нужно исправить ещё там, где у Вас написано реализация (в секции implementation ) - там, где
Цитата:
Код:
procedure TFormX.TreeViewAddChild(rod, doch: String);
|
там тоже нужно исправить.
Цитата:
Сообщение от Dryid466
Далее
2) в теле процедуры TreeViewAddChild заменяем
TreeView1.Items.AddChild на
TreeView1.Items.AddChildObject(.... , Pointer(db_node_id) );
|
точно!
Цитата:
Сообщение от Dryid466
Я так понимаю
Цитата:
TreeView1.Items.AddChildObject(nil, Q1.FieldByName('R_Name').AsString, Pointer(Q1.FieldByName('R_Num').AsI nteger));
это нужно заменить на
Цитата:
TreeView1.Items.AddChildObject(nil, Q1.FieldByName('R_Name').AsString, Pointer(Q1.FieldByName('R_Num').AsI nteger), Pointer(db_node_id));
|
Нет. неправильно. Зачем AddChildObject менять на AddChildObject (причём на неверный вариант - с ошибочным числом параметров)?!