这个树结构该如何判断?(100分)

  • 主题发起人 主题发起人 zbsfg
  • 开始时间 开始时间
Z

zbsfg

Unregistered / Unconfirmed
GUEST, unregistred user!
集团
|--公司1
| |--办公室
| |--厂部
|
|--公司2
| |--办公室
| |--厂部

我选中办公室后,根据SELECT的标签'办公室'如何决断是公司1的'办公室',还是公司2的
"办公室"
 
if TreeView1.Selected.Parent.Text='公司1' then
公司1
else
公司2

 
如果你的每个“办公室”都对应对象或其它内存对象的话,用treenode.data设定节点的唯一指针,
就不会被相同的名称所迷惑啦。
 
to caomo:
DATA怎么用?我不太清楚.
 
Type
PInt:^Integer;
...
procedure YourProcedure ;
var
i:Pint;
begin
New(i);
i^:=10;
Treeview1.Items.AddChildObject(nil,""Node1"",i);
end;
//调用节点对应的信息
procedure YourProcedure2;
begin
Showmessage(InttoStr(PInt(Treeview1.Selected.data)^));
end;

更复杂的例子,请参见TTreeNode.Data Example.
"
 
我用DATA主要想用它用于排序,即SORTTYPE=stData,可我将DATA设好后,排序不起作用,
(按text排序可以)


data应该是正确的
why??
 
DAta内容是指针,不能排序,排序内容还是写在TEXT或从DATA中驱除内容在自己排序吧
 
那么SORTTYPE=stData是什么意思??

stData The items are sorted when the Data object or SortType is changed.
 
function getparenttext( Node:TTreeviewNode):string;
begin
while Node.Parent <> nil do
Node := Node.Parent;
Result := Node.Text;
end;
 
后退
顶部