- Aclaro, cuando creo el árbol identifico los empleados con ':.' al inicio del nombre, se que es no es una solución muy ortodoxa, y si alguien tiene una mejor le agradeceré me la haga saber.
No pongo el código de cuando mando el empleado a una tabla virtual y al grid, pues esto solo aplica a mi programa.
Si alguien quiere que le amplíe la explicación, o si alguien simplifica el código con todo gusto las sugerencias y preguntas son bienvenidas. Está comentado pero pudierab haber omitido algunos detalles.
Saludos!!
FCG
Código Delphi
[-]
function TFReporte.TomaNodos(oNodo:TTreeNode): integer;
var
nCiclo: Integer;
cNombre: string;
nPos: Integer;
oNodoHijo : TTreeNode;
nLargo: Integer;
bEncuentra: Boolean;
Begin
for nCiclo := 0 to oNodo.Count - 1 do
Begin
oNodoHijo := oNodo.Item[nCiclo];
cNombre := oNodoHijo.Text;
nPos:=Pos(':.',cNombre);
if nPos > 0 then
Begin
end;
End
Else
Begin
TomaNodos(oNodoHijo);
End ;
End;
End;