Delphi-TTreeView

放几行代码，以免忘记了，其作用：

1.求出指定节点在兄弟结点中的排行老几

2.生成指定节点的的代码形式。

 

function TForm1.GetGlobeNumCode(inNode: TTreeNode): string;
{功能：产生已存在节点对应的全局编号
入口参数：inCode:TTreeNode节点
返回：全局编号
}
var
   nocode:string;
   tmp:TTreeNode;
begin
   tmp:=inNode;
   nocode := Format('%.4d',[GetNumInSameLevel(tmp)]);
   while tmp.Level<>0 do
   begin
     tmp:=tmp.Parent;
     nocode := Format('%.4d',[GetNumInSameLevel(tmp)]) + nocode;
   end;
   Result:=nocode;
end;

function TForm1.GetNumInSameLevel(inNode: TTreeNode): integer;
{功能：产生已存在节点在兄弟节点层中对应的编号，从1起编
入口参数：inCode:TTreeNode节点
返回：同层编号
}
var
   i:integer;
   tmp:TTreeNode;
begin
   i:=0;
   tmp:=inNode;
   while tmp<>nil do
   begin
     tmp:=tmp.getPrevSibling;
     i:=i+1;
   end;
   Result:=i;
end;