!!!哪位有 树的遍历算法的程序，等着急用！！（最好是pascal写的）

Question

二叉树吗？非常简单有前、中、后三种典型遍历。
type
  PTreeData = ^TTreeData;
  TTreeData = record
    Data:Integer;
    Left, Right:PTreeData;
  end;
//中序
procedure WalkTree(Tree:PTreeData);
begin
  if (Tree <> nil) then
  begin
    WalkTree(Tree.Left);
    WriteLn(Tree.Data);
    WalkTree(Tree.Right);
  end;
end;

Answer 1

也简单，就比如Delphi的TreeViewprocedure WalkTree(Node: TTreeNode);
var
  i: Integer;
begin
  if Node = nil then Exit;
  for i := 0 to Node.Count - 1 do
  begin
    // Do your things with the Node
    WalkTree(Node.Item[i]);
  end;
end;

Answer 2

那如果我想对一个XML文件进行遍历
如：
<root>
  <row>
    <name>
       <fistname>jack</fistname>
       <lastname>sd  </lastname>
    </name>
    <telephone>123445</telephone>
    <address>
       <state>new</state>
       <xian>sdfs</xian>
    </address>
  </row> 
  <row>
    <name>
       <fistname>jack</fistname>
       <lastname>sd  </lastname>
    </name>
    <telephone>123445</telephone>
    <address>
       <state>new</state>
       <xian>sdfs</xian>
    </address>
  </row> 
  <row>
    <name>
       <fistname>jack</fistname>
       <lastname>sd  </lastname>
    </name>
    <telephone>123445</telephone>
    <address>
       <state>new</state>
       <xian>sdfs</xian>
    </address>
  </row> 
</root>  
我想以row为行，将这个XML文件解析放到一个二维数组当中，应当怎么做？说明：XML文件row中的内容可能有变化，但每个row中格式都一样，我想做个通用的将XML文档
转换为二维数组，怎么做！help,一定给分