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,bc7fae210b5e1392
X-Google-Attributes: gid103376,public
From: "Matthew Heaney" <matthew_heaney@acm.org>
Subject: Re: how do i include 111111 in an enumaration type ?
Date: 1999/10/12
Message-ID: <3802f4ee_3@news1.prserv.net>#1/1
X-Deja-AN: 535734072
Content-transfer-encoding: 7bit
References: <7tsq3o$92p$1@minus.oleane.net> <38021792_4@news1.prserv.net>
 <7ttuvt$ssb$1@minus.oleane.net>
Content-Type: text/plain; charset="US-ASCII"
X-Complaints-To: abuse@prserv.net
X-Trace: 12 Oct 1999 08:44:30 GMT, 129.37.62.16
Organization: Global Network Services - Remote Access Mail & News Services
Mime-version: 1.0
Newsgroups: comp.lang.ada
Date: 1999-10-12T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <7ttuvt$ssb$1@minus.oleane.net> , "Sybs ALHABSHI" 
<sybs@htsavoie.com> wrote:

> Thanks for the hint. Yet I'll risk asking a ridiculous beginner's question :
> Can't I have ..sort of an array of strings  ?

Are you going to change the values?  If so, then you could do this:

  subtype VString_Length is Natural range 0 .. 81;

  type VString (Length : VString_Length) is
     record
       S : String (1 .. Length);
     end record;

  function "+" (S : String) return VString is
  begin
    return VString'(S'Length, S);
  end;

  type VString_Array is
    array (Positive range <>) of VString;

  -- Here's your "array of strings":
  Table : VString_Array (1 .. 10);


  Table(2) := +"hello";
  Table(5) := +"this is a string";



--
No statement which refers to a "reality" transcending the limits of all
possible sense-experience can possibly have any literal significance;
the labours of those who have striven to describe such a reality have
all been devoted to the production of nonsense.

Alfred Jules Ayer, "Language, Truth, and Logic"