Re: Help, asking for code to print out an enumerated type

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

ChristopherL schrieb:
> On Nov 21, 9:24 am, Anh Vo <anhvofrc...@gmail.com> wrote:
>> This code should work for all Ada including Ada 2005. I hope you get
>> the idea to print any
>> enumerated values.
>>
>> with Text_Io;
>> procedure Print_Enum_Values is
>>    I_Prefer_Ada : Boolean := True;   -- type Boolean is (True, False);
>> defined in Standard
>> begin
>>    Text_Io.Put_Line ("Are you prefer Ada? " & Boolean'Image
>> (I_Prefer_Ada));
>> end Print_Enum_Values;
> 
> Ok, here is a fill in the blank question. The question is modify the
> below code to print out
> the contents of variable My_enum.
> 
> procedure test is
>   type chris_type is (apple, orange, tomatoe, pear, peaches, grapes);
>   My_enum:chris_type;
> begin
> 
>    My_enum := grapes;
> 
> end test;

You might want to study the code An Voh has provided.
It does what you want.
Also, and in addition, may I suggest you look at the IO
packages for enumerated types in case An Voh's solution
is not what you like.