Jump to content

I want a TTreeDBGrid to show data


David

Recommended Posts

Hello everybody,

    I want to show my data in a TTreeDBGrid or TuniTreeDBGrid.But I can not find the component.Do you have the component to meet my need?

    Or can you give me some advices?

   Thank you very much.

Link to comment
Share on other sites

This code works for me.

try to adapt it.

You must create a table like: Id, Description, IdFather

hope that helps.
procedure CreateTreeViewFromTable;
var iFather, iLast: TUniTreeNode; FatherCreated: Integer;
begin
  Qry.First;
  FatherCreated := -1;
  while not Qry.Eof do
  begin
    if (FatherCreated <> QryIDFather.AsInteger) then
    begin 
      if QryID.AsInteger = QryIDFather.AsInteger then
        iFather := TreeView1.Items.Add(nil, QryDESCRIPTION.AsString)
      else
        iFather := TreeView1.Items.AddChild(iLast, QryDESCRIPTION.AsString);
      FatherCreated := QryID.AsInteger;
      Qry.Next;
    end
    else
    begin
      while (not Qry.Eof) and (FatherCreated = QryIDFather.AsInteger) do
      begin
        iLast := TreeView1.Items.AddChild(iFather, QryDESCRIPTION.AsString);
        Qry.Next;
      end;
    end;
  end;
end;
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...