Hola, estube tratando de hacer este ejercicio(la idea es recorrerlo preorden) pero me tira el mensaje bien para el primer nodo,
y despues tira un error, a ese procedimiento le paso A.Raiz, ¿Lo podrias revisar?, muchas gracias
Código Delphi
[-]
procedure pad ( p : posicionarbol);
begin
if not ramanula(p) then
begin
if p <> a.raiz then
begin
showmessage ( 'NODO : ' + p.Datos.ds + ' PADRE : ' + padre(a,p).Datos.DS ) ;
end;
pad(p.HI);
pad(p.HD);
end;
end;