求一个VirtualTreeview的实例找什么财务软件好

仓库管理软件版1楼: 如题目，急！在线等待。可加QQ:39913823传送

3楼: PFileInfo = ^TFileInfo;
TFileInfo = packed record
t_ID : int64;
t_NameID : string;
t_Size : int64;
end;
在show()事件中定义
MYVST.NodeDataSize := sizeof(TFileInfo);
在增加button中
var
Node : PVirtualNode;
Data : PFileInfo;
begin
Node := MyVST.AddChild(nil);
Data := MyVST.GetNodeData(Node);
Data.t_ID := 1;
Data.t_name := ＇＇file 1＇＇;
Data.t_Size := 1000;
end;
在myVST的GetText事件中
VAR
Data: PFileInfo;
begin
Data := Sender.GetNodeData(Node);
if Assigned(Data) then
begin
case Column of
0: CellText := inttostr(Data.t_id);
1: CellText := Data.t_name;
2: CellText := inttostr(Data.t_id);
end;
end;
end;