Ausgeben von einer Datenbank mit TTreeView

[franktron]

Hast du auch die DB Geöffnet

Delphi-Quellcode:

procedure TMyHardware.Button1Click(Sender: TObject);
begin
  ADOQuery1.Active:=True;
  FillTreeView(TreeView1,ADOQuery1);
  ADOQuery1.Active:=False;
end;