Re: record

["Corey Ashford" <corey@remove.these.four.words.rational.com>]

alex <cpp4@usa.net> wrote in message news:365270A5.13DD@usa.net...
>Hi I'd like to define a variable size record but I have a compile error.
>
>what can I do ?
>
> Ex; TYPE TAB   IS RECORD
>        Str :STRING(1..M);
>        Char :CHARACRER;
>        END RECORD;
>
>thank,s

One way is to add a discriminant... something
like the following:

subtype string_size is natural range 1..1024;

type tab (size : string_size) is record
    str : string (1..size);
    char : character;
end record;