Rekurzní fce, problém – Delphi – Fórum – Programujte.com

Zdravim, vsecky bombardaky mam tuhle funkci na pruchod binarnim stromem a najiti otce prvku "hledany".

kod

function TAbsBSTree.ZpristupniOtce(prvek,hledany:TAbsBSTreeItem):TAbsBSTreeItem; //preorder
begin
if (JePrazdny) then
Result:=nil
else
begin
if (prvek=nil) then
Exit
else if (prvek=hledany) then
Result:=prvek
else if ((prvek.GetLevy=hledany) OR (prvek.GetPravy=hledany)) then
Result:=prvek
else
begin
ZpristupniOtce(prvek.GetLevy,hledany);
ZpristupniOtce(prvek.GetPravy,hledany);
end;
end;
end;

Vzdycky toho otce najdu ale pak mam problem tu adresu dostat az na prvni uroven toho rekuzni volani takze vysledku se mi
preda nejaka nesmyslna hodnota...Potreboval bych pichnout :-)

napadlo mě:

function TAbsBSTree.ZpristupniOtce(prvek,hledany:TAbsBSTreeItem):TAbsBSTreeItem; //preorder
begin
Result:=nil;
if (prvek=nil) then
Exit
else if (prvek=hledany) then
Result:=prvek // tohle ale nevraci otce, bych vypustil celou podminku
else if ((prvek.GetLevy=hledany) OR (prvek.GetPravy=hledany)) then
Result:=prvek
else
begin
result:=ZpristupniOtce(prvek.GetLevy,hledany);
If result=nil then
result:=ZpristupniOtce(prvek.GetPravy,hledany);
end;
end;