delphi创建树

Question

var
  i:Integer;
  ChileId:String;
  ChNode:TTreeNode;
begin
  ADODataSet1.Active := false;
  ADODataSet1.CommandText := 'select * from Tab_Module where ParentCode=0 order by ModuleId';
  ADODataSet1.Active := true;  for i := 0 to ADODataSet1.RecordCount-1 do
  begin
    ChileId := ADODataSet1
  end;
end;我想从数据库读取数据来创建树。　写道上面这样就写不懂了
本来是ADODataSet1后面能.FieldByName但是　.不出来　
为什么？

Answer 1

var
  i:Integer;
  ChileId:String;
  ChNode:TTreeNode;
begin
  ADODataSet1.Active := false;
  ADODataSet1.CommandText := 'select * from Tab_Module where ParentCode=0 order by ModuleId';
  ADODataSet1.Active := true;  for i := 0 to ADODataSet1.RecordCount-1 do
  begin
    ChileId := ADODataSet1.FieldByName('chieldID').asString;
  end;
end;