var PData: PInteger;GetMem(PData, SizeOf(Integer)); Node.Data := PData;//释放PData := Node.Data; if Assigned(PData) then begin FreeMem(PData); Node.Data := nil; end;
ehom已经回答了,呵呵。如果要存储一个数组就必须得得记录记针了,
var PData: PInteger;GetMem(PData, SizeOf(Integer)); Node.Data := PData;//释放PData := Node.Data; if Assigned(PData) then begin FreeMem(PData); Node.Data := nil; end;
比如有一记录:
TTreeCF= packed record
CF:Single;
memo:WideString;
Classify:Integer;
DateTime:TDateTime;
DispTree:Boolean; //True 为显示,False 为显示子树符号
Probablity:Single;
end;
先对该记录类型赋值后,再赋给data
node.Data:=certain;
用的时候再把经取出来就行了.
记录该怎样用,楼主该不是不会吧.
PData: PInteger;GetMem(PData, SizeOf(Integer));
Node.Data := PData;//释放PData := Node.Data;
if Assigned(PData) then
begin
FreeMem(PData);
Node.Data := nil;
end;
PData: PInteger;GetMem(PData, SizeOf(Integer));
Node.Data := PData;//释放PData := Node.Data;
if Assigned(PData) then
begin
FreeMem(PData);
Node.Data := nil;
end;