From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ae10861c789c72c2
X-Google-Attributes: gid103376,public
From: "Corey Ashford" <corey@remove.these.four.words.rational.com>
Subject: Re: record
Date: 1998/11/18
Message-ID: <72v6h1$l2b$1@usenet.rational.com>#1/1
X-Deja-AN: 413244749
References: <365270A5.13DD@usa.net>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.0810.800
Organization: Rational Software
X-MSMail-Priority: Normal
Newsgroups: comp.lang.ada
Date: 1998-11-18T00:00:00+00:00
List-Id: <comp.lang.ada>


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;