procedure RellenaCuentas;
var
Nodo : TTreeNode;
begin
Nodo := TreeViewCuentas.Items.Add(nil, 'Cuentas');
RellenaCuentasNivel(Nodo);
end;
procedure RellenaCuentasNivel(Nodo: TTreeNode; Nivel: integer = 1);
var
aNodo : TTreeNode;
Codigo, Cuenta : string;
begin
with ADOQuery.Create(nil) do
begin
try
while not EOF do
begin
Codigo := FieldByName['CODIGO'].AsString;
Cuenta := FieldByName['CUENTA'].AsString];
aNodo := TreeViewCuentas.Items.AddChild(Nodo, Codigo + ' ' + Cuenta);
RellenaCuentas(aNodo, Nivel + 1);
Next;
end;
Close;
finally
Free;
end;
end;
end;