Re: a beginner question

["Björn Persson" <spam-away@nowhere.nil>]

mr1yh1 wrote:

>    type Person ( S:Sex_T:=Male )is
>    record
>       Age:Positive ;
>       Sex:Sex_T:=S;------please look at here first
>       case S is
>          when Male =>
>             Has_Wife:Boolean ;
>          when Female=>
>             Has_Husband:Boolean;
>       end case;
>    end record;--person end

You have defined a person with two independent sexes. By default, Sex is 
initialized to the same value as S, but it's perfectly possible to 
change it.

Just remove Sex and let S be the person's sex.

>    Put(Sex_T'Image(she.Sex));

This line then becomes:

    Put(Sex_T'Image(she.S));

> why  its not possible ?
> to put
> she:=(age=>23,has_husband=>true);

The parenthesis here is called an aggregate. An aggregate must provide 
values for all the components. But you can do:

    She.Age := 23;
    She.Has_Husband := True;

-- 
Björn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu