迭代文字

列舉中的文字是離散型別，因此我們可以使用屬性 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