ツリー構造について

[rom]

現在このようにして階層を取得していますが
他に方法があればご教授ください。

よろしくおねがいします。

Code:

{if-non-null current = tree.current-node then
                        {let rank:int=1}
                        {let rank_node:#TreeNode=current}
                        {while rank_node.parent != null do
                            {set rank_node = rank_node.parent}
                            {inc rank}
                        }
                        {popup-message rank&"階層です"}
                    }