Código Delphi [-] function GetLevel(node:TTreeNode):integer; begin result := 0; while node <> nil do begin inc(result); node := node.parent; end;
function GetLevel(node:TTreeNode):integer; begin result := 0; while node <> nil do begin inc(result); node := node.parent; end;