Dados - visualizando em um treeview

Top  Previous  Next

procedure TForm1.Button1Click(Sender: TObject);

var

   pai : TTreeNode;

begin

   pai := nil;

   while (Sua_Critica) do begin

      pai := TreeView1.Items.AddChild(nil,tabelaNOMECOLUNA01.AsString);

      TreeView1.Items.AddChild(pai,tabelaNOMECOLUNA02.AsString);

      TreeView1.Items.AddChild(pai,tabelaNOMECOLUNA03.AsString);

      TreeView1.Items.AddChild(pai,tabelaNOMECOLUNA04.AsString);

   end

end;