来自 Wikibooks,开放的书籍,为开放的世界
X'Succ(Y) 是 Ada 属性,其中 X 是任何离散类型,Y 是该类型的某个值。此属性表示与输入参数的位置编号大一的位置编号的离散值。
返回的离散值类型是离散类型的基本类型。如果输入参数是离散类型的 Last 值,则会引发 CONSTRAINT_ERROR 异常。
type
My_Enum is
(Enum1, Enum2, Enum3);
...
pragma
Assert (My_Enum'Succ(Enum2) = Enum3); -- OK
pragma
Assert (My_Enum'Succ(Enum3) = Enum1); -- Wrong