在Ada中找到二叉树中的叶子

Question

我用Ada写了BSt，我试图打印树叶。这是树和节点代码

type Node;
type Tree is access Node;
type Node is record
  Item:  Integer;
  Left,Right:  Tree;
end record;

我可以检查Tree是否为空，但是如果我检查Tree.Left或Tree.Right是否为空我是否

raised CONSTRAINT_ERROR : access check failed

符合例如

if (T.Left/=null) then

如何检查节点是否没有子节点？

Answer 1

这可能是因为T istelf是null，还有一片叶子

Answer 2

尝试

如果T / = null则   如果T.left = null而T.right = null则       - 叶节点！