迭代文字

枚举中的文字是离散类型，因此我们可以使用属性 Image 来找出它作为文本形式的文字。请注意，这会打印出与代码中相同的单词（但大写）。

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   type Fruit is (Banana, Pear, Orange, Melon);
begin
   for I in Fruit loop
      Put (Fruit'Image (I));
      New_Line;
   end loop;
end;

结果

BANANA
PEAR
ORANGE
MELON