它是一个指针,可以指向很多东西,在写数据库程序时,我经常用它来装载一个表的某条记录一个字段值,这样可以很好的解决当点击TREEVIEW时可以很快的通过这个NODE.DATA来找到我要的那条记录,如 procedure additemtotree(); var node:ttreenode; begin while not table1.Eof do begin node:=TreeView1.Items.AddObject(nil,Table1.FieldByName('标 题').asstring,pointer(Table1.FieldByName('ID').AsInteger)); Table1.next; end; end; procedure TForm1.TreeView1change(Sender:TObject;Node:TTreeNode); begin if not Table1.locate('ID',Integer(Node.Data),[]) then begin showmessage('no find the record!'); exit; end; .....do something..... end;
procedure additemtotree();
var node:ttreenode;
begin
while not table1.Eof do begin
node:=TreeView1.Items.AddObject(nil,Table1.FieldByName('标 题').asstring,pointer(Table1.FieldByName('ID').AsInteger));
Table1.next;
end;
end;
procedure TForm1.TreeView1change(Sender:TObject;Node:TTreeNode);
begin
if not Table1.locate('ID',Integer(Node.Data),[]) then begin
showmessage('no find the record!');
exit;
end;
.....do something.....
end;