引言: 請教個大大，我想把資料庫的Matetype（數據表）里數據讀到Treeview里，Matetype的結構為：Typecode(類別號),type(類別名稱),Parentcode(有無父節點),Havechild(有無子節點)。並且數據表里有三類數據（大類，中類，小類）我想用遞歸運算，但是只能出現一個節點，如下： 產品分類 ---酒 ---白酒 我的程式如下： procedure TForm1.viewtree(i:Integer); begin Treeview1.Items.AddObject(nil,'產品分類',nil); with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM MateType WHERE Parentcode=''' inttostr(i) ''''); Open; First; while not eof do begin if FieldByName('Parentcode').AsInteger=i then begin Treeview1.Items.AddChildObject(Treeview1.items[i],FieldByName('Type').AsString,pchar(FieldByName('Typecode').AsString));//line12 if FieldByName('Havechild').AsInteger<>0 then begin viewtree(FieldByName('Typecode').AsInteger); end; end; next; end; end; end; 我知道是程式的line12這行的Treeview1.items[i]的問題，但是不知道怎麽表示才能使程式有效運行。 我是菜鳥，請多指點！ 不勝感激！！

procedure TForm1.Button2Click(Sender: TObject);
begin
  AddChildNode(  nil, 0, 'root' );
end;    function TForm1.AddChildNode(node: TTreeNode; typecode: integer; stype: string): TTreeNode;
var
  Qry: TQuery;
begin
  Result := TreeView1.Items.AddChild(node, stype);
  Qry:= TQuery.Create(self);
  Qry.DatabaseName := Database1.DatabaseName ;
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'SELECT * FROM MateType WHERE ParentCode = '   IntToStr(typecode);
  Qry.Open;
  While not Qry.Eof do
  begin
    AddChildNode(Result, Qry.FieldByName('typecode').AsInteger, Qry.FieldByName('type').AsString);
    Qry.Next;
  end;
  Qry.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  AddChildNode(  nil, 0, 'root' );
end;    function TForm1.AddChildNode(node: TTreeNode; typecode: integer; stype: string): TTreeNode;
var
  Qry: ADOQuery;
begin
  Result := TreeView1.Items.AddChild(node, stype);
  Qry:= ADOQuery.Create(self);
  Qry.Connection := ADOConnection1;
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'SELECT * FROM MateType WHERE ParentCode = '   IntToStr(typecode);
  Qry.Open;
  While not Qry.Eof do
  begin
    AddChildNode(Result, Qry.FieldByName('typecode').AsInteger, Qry.FieldByName('type').AsString);
    Qry.Next;
  end;
  Qry.Free;
end;

引言: Qry: ADOQuery; 應改為TADOQUery

引言: 但是現在又有個問題，就是速度太慢，因?我有好多節點和子節點，大概要花15秒它才出現，看了一些資料，說可以先只讀取一到兩個子節點的?容，等到用戶選擇時再顯示其他?容，但是我不知到怎?做，請幫忙。 在這再次感謝兩位，感謝你們的幫忙。

    // 在 type 段加入
type
  TmyData = record
    expanded: boolean;
    typecode: integer;
  end;
  pNodeData = ^TmyData;
  
// .....
//
//
procedure TForm1.Button2Click(Sender: TObject);
begin
  AddChildNode(  nil, 0, 'root', 2 );
end;    //
//
//
function TForm1.AddChildNode(node: TTreeNode; typecode: integer; stype: string; ideep: integer): TTreeNode;
var
  Qry: TADOQuery;
  p: pNodeData;
begin
  if ideep <= 0 then
  begin
    Result := nil;
    exit;
  end;
  New(p);
  p^.typecode := typecode;
  p^.expanded := false;
  Result := TreeView1.Items.AddChildObject(node, stype, p);
  Qry:= TADOQuery.Create(self);
  Qry.Connection := ADOConnection1;
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'SELECT * FROM MateType WHERE ParentCode = ' ＋ IntToStr(typecode);
  Qry.Open;
  While not Qry.Eof do
  begin
    AddChildNode(Result, Qry.FieldByName('typecode').AsInteger, Qry.FieldByName('type').AsString, ideep - 1);
    Qry.Next;
  end;
  Qry.Free;
end;    //
//
//
function TForm1.AddChildNodeSub(node: TTreeNode; typecode,
  ideep: integer): TTreeNode;
var
  Qry: TADOQuery;
begin
  Qry:= TADOQuery.Create(self);
  Qry.Connection := ADOConnection1;
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'SELECT * FROM MateType WHERE ParentCode = ' ＋ IntToStr(typecode);
  Qry.Open;
  While not Qry.Eof do
  begin
    AddChildNode(node, Qry.FieldByName('typecode').AsInteger, Qry.FieldByName('type').AsString, ideep - 1);
    Qry.Next;
  end;
  Qry.Free;
end;    //
//
//
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
var
  i: integer;
begin
//  showmessage( inttostr( pNodeData(Node.Data)^.typecode ));
  if not pNodeData(Node.Data)^.expanded then  // 檢驗是否已展開過下兩層
  begin
    pNodeData(Node.Data)^.expanded := true;
    for i:= 0 to node.Count-1 do
      AddChildNodeSub(  node.Item[i], pNodeData(node.Item[i].Data)^.typecode, 2 );
  end;    end;    

引言: 請問timhuang:AddChildNodeSub這個函數是幹什麽用的？Node.Data裏面到底是什麽内容，怎麽使用的？ 謝謝!

  // case 1
  p: pNodeData;  
  New(p);
  Result := xxx.AddChild(n1, '1234');
  Result.Data := p;
  
  // case 2
  p: pNodeData;
  New(p)
  Result := xxx.AddChildObject(n1, '1234', p);  

引言: Hi, 若是改為 ADO 的話, 寫法如下: 記得利用 TADOConnection 與資料庫建立連結.

procedure TForm1.Button2Click(Sender: TObject);
begin
  AddChildNode(  nil, 0, 'root' );
end;    function TForm1.AddChildNode(node: TTreeNode; typecode: integer; stype: string): TTreeNode;
var
  Qry: ADOQuery;
begin
  Result := TreeView1.Items.AddChild(node, stype);
  Qry:= ADOQuery.Create(self);
  Qry.Connection := ADOConnection1;
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'SELECT * FROM MateType WHERE ParentCode = '   IntToStr(typecode);
  Qry.Open;
  While not Qry.Eof do
  begin
    AddChildNode(Result, Qry.FieldByName('typecode').AsInteger, Qry.FieldByName('type').AsString);
    Qry.Next;
  end;
  Qry.Free;
end;

其中的 紅色部分為修改為 ADO 的版本, 請再自行試試!!