Funcion Recursiva

[jachguate]

Empezado por Aztaroth

pero no entra a la recursividad como deberia

¿Que significa exactamente esto? ¿algun mensaje de error? ¿al compilar? ¿al ejecutar?

[walace_soy]

Hola que tal?, espero poder ayudarte aunque me parece que no porque no se mucho de programación y vamos imagino que lo que voy a decirte te parecera una tonteria.

Esto es lo que haces tu:

boomTable := TQuery.Create(nil);
boomTable.DatabaseName := 'D:\sof';
boomTable.SQL.Add('SELECT PNO, CNO, CNAME, SUB, QPA
FROM "d:\sof\Bomstart.dbf" Bomstart ');

boomTable.SQL.Add('WHERE PNO = :PADRE order by CNO');
boomTable.ParamByName('PADRE').Value := padre;
boomTable.Open;
while not boomTable.Eof do
begin
mNodo := arbol.Items.AddChild(nodo, boomTable.Fields[1].Value);
if boomTable.FieldByName('SUB').AsInteger = 3 then
begin
getComponents(boomTable.FieldByName('CNO').AsString ,
mNodo, cantidad);
end
No se exactamente lo que es CNO, pero si es lo que yo pienso, en que momento le dices que te de la información del siguiente padre?. Repito no soy muy bueno en esto de pensar asi que no te podre ayudar mucho, pero vamos sino le pasas el siguiente padre no podras obtener bien la informacion del siguiente. Pero desconozco que es ese campo.