我来! type Data =packed record ID :String; end; PData = ^Data;var ps: PData; begin New(Ps); Ps^.ID := 'TableID'; tvWd.Items.AddChildObject(tvWd.Items[0],'朋友你好',Ps);
end; 这样生成的一个树可以根据选择的结点来获得诸如:表的ID等;以下高手来!!*_*
最后,不用树的时候,记得释放树节点指针: var I : integer; begin for I := 0 to TreeView.Items.Count - 1 do begin Dispose(TreeView.Items[I].Data); TreeView.Items[I].Data := nil; end; end;
type
Data =packed record
ID :String;
end;
PData = ^Data;var
ps: PData;
begin
New(Ps);
Ps^.ID := 'TableID';
tvWd.Items.AddChildObject(tvWd.Items[0],'朋友你好',Ps);
end;
这样生成的一个树可以根据选择的结点来获得诸如:表的ID等;以下高手来!!*_*
var
I : integer;
begin
for I := 0 to TreeView.Items.Count - 1 do
begin
Dispose(TreeView.Items[I].Data);
TreeView.Items[I].Data := nil;
end;
end;