Delphi中指针是赋值用的。 类型是访问用的。 如TTreeNode.Data是个指针,它可以用来保存这个节点的一些其它的值。 如: type TNode=record bValue:Boolean; info:String; end; PNode=^TNode;那么可以用TNode来访问它的值,PNode来进行操作。 procedure Treeview1.onchange(sender :Tojbect;node:TTreenode); var n:PNode; begin new(n); n.bValue:=False; n.info:='some msg'; Node.data:=n; if TNode(Node.Data^).bValue then begin //TNode(Node.Data^).Info //you can use TNode(Node.Data^).bValue Access Node.data pointer. end; //not dispose(n); end;
这种写法是pascal的标准取指针数据写法!!
类型是访问用的。
如TTreeNode.Data是个指针,它可以用来保存这个节点的一些其它的值。
如:
type
TNode=record
bValue:Boolean;
info:String;
end;
PNode=^TNode;那么可以用TNode来访问它的值,PNode来进行操作。
procedure Treeview1.onchange(sender :Tojbect;node:TTreenode);
var n:PNode;
begin
new(n);
n.bValue:=False;
n.info:='some msg';
Node.data:=n;
if TNode(Node.Data^).bValue then
begin
//TNode(Node.Data^).Info
//you can use TNode(Node.Data^).bValue Access Node.data pointer.
end;
//not dispose(n);
end;