使用包 Enumeration IO
我們只能使用泛型包 Ada.Text_IO.Enumeration_IO
來列印文字,而不是列舉文字中的屬性 Image
和 Ada.Text_IO.Put
。
with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
type Fruit is (Banana, Pear, Orange, Melon);
package Fruit_IO is new Enumeration_IO (Fruit); use Fruit_IO;
begin
for I in Fruit loop
Put (I);
New_Line;
end loop;
end;
結果
BANANA
PEAR
ORANGE
MELON