Delphi TTreeNode以递归方式将子节点附加到父节点

Question

我在＆＃34;项目管理＆＃34;中有一个任务。我必须分配也可以是子模块的模块，所以我想将递归子模块附加到模块。

示例：

P（项目）模块（M1，M2，M3，M4）。在M1模块下将有子模块（M1S1，M1S2，M1S3），在子模块1（M1S1）下可以有许多子模块（M1S1S1，M1S1S2，M1S1S3）等。

我使用Recursion和TTreeNode完成了这段代码，但我觉得问题出在条件语句中。

procedure TForm2.BitBtn1Click(Sender: TObject);

begin
 lGlblProjID := 1;
lGlblProjName := 'Project';
    ADOConnectionListner.Connected := true;
  try
    if ADOConnectionListner.Connected then
    begin

          RootNode := TreeView2.Items.Add(nil, lGlblProjName);
          getSubChild(lGlblProjID, RootNode);

   end;
    except
      on E: Exception do
      begin
        ShowMessage('Exception Class = ' + E.ClassName);
      end;
end;
end;

procedure TForm2.getSubChild(var Pid: Integer; var SubRoot: TTreeNode);
var
  lcount, I, lcurrentID: Integer;
  lcurrentName: String;
  lModuleNode: TTreeNode;

begin
  // ShowMessage(IntToStr(Pid)+ ' '+SubRoot.Text);

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM treetab Where parent_id =:value1');
  ADOQuery1.Parameters.ParamByName('value1').Value := Pid;
  ADOQuery1.Active := true;
  lcount := ADOQuery1.RecordCount;

  for I := 0 to lcount - 1 do
  begin
    lcurrentID := ADOQuery1.FieldByName('id').AsInteger;
    lcurrentName := ADOQuery1.FieldByName('name').AsString;
    ShowMessage(' id ' + IntToStr(lcurrentID) + ' dd ' + lcurrentName);   // print valu of i

    if ((lcurrentID <> 0)and (SubRoot.Text <> '') ) then      //or
    begin
      lModuleNode := TreeView1.Items.AddChild(SubRoot, lcurrentName);
      getSubChild(lcurrentID, lModuleNode);
    end else // if
    // lcurrentID = 0

 ShowMessage('end reached');

 //  TreeView1.Items.AddChild(SubRoot, ADOQuery1.FieldByName('name').AsString);


 ADOQuery1.Next;
    //*********
  end;

end;

我想检索特定项目的所有子模块，例如仅在id = 1的情况下的项目。

Answer 1

您的问题似乎是非本地ADOQuery1，它会在每次递归调用时被清除。因此，您将丢弃先前查询中的所有剩余记录。您应该为查询结果安排本地存储。

像（未经测试）的东西：

procedure GetSubChild()
type
  TTempRecord = record
    id: integer;
    name: string;
  end;

  TTempArray = array of TTempRecord;
var
  lcount, I, lcurrentID: Integer;
  lcurrentName: String;
  lModuleNode: TTreeNode;
  recs: TTempArray
begin
  // ...
  // query the db
  // ...
  lcount := ADOQuery1.RecordCount;

  SetLength(recs, lcount);
  for i := 0 to lcount-1 do
  begin
    recs[i].id := ADOQuery1.FieldByName('id').AsInteger;
    recs[i].name := ADOQuery1.FieldByName('name').AsString;
    ADOQuery1.Next;
  end;

  for i := 0 to lcount-1 do
  begin
    lcurrentID := recs[i].id;
    lcurrentname := recs[i].name;
  // ...
  // add to treeview
  // call recursively GetSubChild()
  // ...
  end;
end;