مساعدة في كيفية تعبة شجرة من جدول

// ================= Tree Functions=======================

Procedure GetNodeChilds(inTree: TExTreeView; inNode: TExTreeNode;
  inConnection: TADOConnection; NodeName: String);
var
  TempNode: TExTreeNode;
  xQuery: TADOQuery;
  m_Folder, m_Father: String;
begin

  xQuery := TADOQuery.Create(nil);
  xQuery.Connection := inConnection;
  xQuery.SQL.Text := 'select * from Folders Where Father = ' + QuotedStr (NodeName);

  try
    xQuery.Open;

    while not xQuery.Eof do
    begin
      m_Folder := xQuery.FieldByName('Folder').AsString; // Folder Name
      m_Father := xQuery.FieldByName('Father').AsString; //Folder Father

      TempNode := BuildTreeNode(inTree, m_Folder, m_Father, inNode);
      GetNodeChilds(inTree, TempNode, inConnection, m_Folder);
      TempNode.Expanded := True;
      xQuery.Next;
    end;

  finally
    FreeAndNil(xQuery);

  end;

end;

function BuildTreeNode(inTree: TExTreeView; inNodeText, NodeFather: String;
  FatherNode: TExTreeNode): TExTreeNode;
var
  TempNode: TExTreeNode;
begin

  if FatherNode <> nil then
  begin
    TempNode := inTree.Items.AddChild(FatherNode, inNodeText);
    TempNode.ID := NodeFather;
  end
  else
  begin
    TempNode := TExTreeNode.Create(inTree.Items);
    TempNode := inTree.Items.Add(TempNode, inNodeText);
    TempNode.ID := NodeFather;

  end;
  TempNode.ImageIndex := 0;
  TempNode.SelectedIndex := 0;

  TempNode.Expanded := True;
  Result := TempNode;

end;

function FindNode(inTree: TExTreeView; NodeText, NodeFather: String;
  ByFather: Boolean = True): TExTreeNode;
var
  xNode: integer;
  FindStr: string;
begin
  Result := nil;
  if ByFather then
    FindStr := NodeFather
  else
    FindStr := NodeText;

  for xNode := 0 to inTree.Items.Count - 1 do
  begin
    if inTree.Items[xNode].ID = FindStr then
    begin
      Result := inTree.Items[xNode];
      exit;
    end;

  end;

end;

procedure BuildFoldersTree(inTree: TExTreeView; inConnection: TADOConnection);
var
  TempNode: TExTreeNode;
  xQuery: TADOQuery;
  m_Folder, m_Father: String;
begin

  xQuery := TADOQuery.Create(nil);
  xQuery.Connection := inConnection;
  xQuery.SQL.Text := 'select * from Folders where Father = ' + QuotedStr('*');

  try
    xQuery.Open;

    while not xQuery.Eof do
    begin
      m_Folder := xQuery.FieldByName('Folder').AsString;
      m_Father := xQuery.FieldByName('Father').AsString;

      TempNode := BuildTreeNode(inTree, m_Folder, m_Father, nil);
      GetNodeChilds(inTree, TempNode, inConnection, m_Folder);
      TempNode.Expanded := True;
      // else
      // BuildTreeNode(inTree,m_Folder,m_Father,FindNode(intree,m_Folder,m_Father,true));

      xQuery.Next;
    end;

  finally
    FreeAndNil(xQuery);

  end;

end;

الاستخدام فقط باستدعاء الدالة

procedure BuildFoldersTree(FoldersTree,sysConnection);

أخي الكريم أرجو لو ترفق مثال أ تقوم بالتعديل على الثال المرفق