type datanode=record id:integer; end; Pdatanode=^datanode;var pdata1:pdatanode; snode:ttreenode; begin Snode:=rzTreeView1.Selected; pdata1:=snode.data; ida:=integer(pdata1.id); DataModule3.ADOTable1.Locate('id',inttostr(ida),[lopartialkey]); nametmp:=DataModule3.ADOTable2.FieldByName('name').value; end
datanode=record
id:integer;
end;
Pdatanode=^datanode;var
pdata1:pdatanode;
snode:ttreenode;
begin
Snode:=rzTreeView1.Selected;
pdata1:=snode.data;
ida:=integer(pdata1.id);
DataModule3.ADOTable1.Locate('id',inttostr(ida),[lopartialkey]);
nametmp:=DataModule3.ADOTable2.FieldByName('name').value;
end