高手帮忙看一下，图片里有数据，TreeView生成目录时的TTreeNode问题。

Question

用的是CLL组件第一列是序号，第二列是父节点编号，第三列是文本
procedure TForm1.Button4Click(Sender: TObject);
var Node:TTreeNode;
nodes:TTreeNodes;
   i,pid:Integer;
begin
             nodes:=TreeView1.Items;            for i:=2 to Cell1.GetRows(cell1.GetCurSheet)-1 do //生成
            begin
              pid:=StrToInt(Cell1.GetCellString(2,i,0));//取父节点编号
              if Cell1.GetCellString(3,i,0)='' then
              begin
                Break;
              end else
             if pid=0 then
              begin
                node:=nil;
              end else              
              begin
              node:=TreeView1.Items[pid];  //取父节点作为node*********这里提示出错
              end;
               nodes.Add(Node,Cell1.GetCellString(3,i,0) );
            end;end;

Answer 1

太没有诚意了吧
“0”帖子呀

Answer 2

有分我都发到技术区了，问题解决了，但清空再生成就出错。