Как добавить подкатегорию в TreeView с учетом индекса колонки из БД Access

[sergeykom]

Здравствуйте, уважаемые программисты! Подскажите, если знаете - как добавить подкатегорию через TreeView в таблицу базы данных Access, но в ту ветку, где в TreeView стоит курсор? Если я правильно понимаю, нужно, во-первых, узнать ID той строки в БД, где на этой строке в TreeView стоит курсор, а во-вторых - передать этот ID в числовом виде функции вставки строк в базу данных. Попробовал такой код, но выдает ошибку:

procedure TfrmCatalog.btnAddSubCategCatalogClick(Sender: TObject);
var p:String;
d:Integer;
Node:TTreeNode;
begin
  d:=Integer(Node.Data);  //передаётся индекс ветки, где курсор
  p:=InputBox('Название подкатегории','Введите название подкатегории','Пальто');
  with frmComponent.adotTvCatalog do
  begin
    Open;
    Append;
    FieldValues['NameCategory']:=p; //в таблицу БД добавляется введенное имя подкатегории
    FieldValues['Level']:=1;
    //FieldValues['Parent']:=Integer(Node.Data);
    Post;
    Close;
  end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[evg_m]

Node:TTreeNode;
begin
d:=Integer(Node.Data); //передаётся индекс ветки, где курсор

при компиляции у вас должно было быть предупреждение (warning

[Warning] DataFormEdit.pas(107): Variable 'rsv' might not have been initialized

что означает Вы забыли задать значение для указанной переменной (у вас Node).
А использование не заданных переменных приводит к AV(Access Violation)

node:=TreeView.Selected;

и не забудьте что категория в treeview может и не быть выбрана (Selected=nil), что тоже приведет к AV.

[sergeykom]

Все заработало. Большое спасибо!