Re: how do i include 111111 in an enumaration type ?

["Matthew Heaney" <matthew_heaney@acm.org>]

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"