comp.lang.ada
 help / color / mirror / Atom feed
From: lutz@iks-jena.de (Lutz Donnerhacke)
Subject: Re: how do i include 111111 in an enumaration type ?
Date: 1999/10/12
Date: 1999-10-12T00:00:00+00:00	[thread overview]
Message-ID: <slrn80665t.1a5.lutz@taranis.iks-jena.de> (raw)
In-Reply-To: 7ttuvt$ssb$1@minus.oleane.net

* Sybs ALHABSHI 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  ?

After some failtures to use Ada.Strings.Unbounded--I hate To_Unbound...--
I came up with code like this:

   type String_Ptr is access String;
   type String_Array is array (Positive range <>) of String_Ptr;

   function Empty_String_Array return String_Array is
   begin
     return String_Array(2..1);
   end;

   ... myarray := myarray & new String'(mystring); ...

   ... if mystring = myarray(i).all then ...





  parent reply	other threads:[~1999-10-12  0:00 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <7tsq3o$92p$1@minus.oleane.net>
     [not found] ` <38021792_4@news1.prserv.net>
     [not found]   ` <slrn80495c.2a2.aidan@skinner.demon.co.uk>
1999-10-11  0:00     ` how do i include 111111 in an enumaration type ? Keith Thompson
1999-10-12  0:00   ` Sybs ALHABSHI
1999-10-12  0:00     ` Matthew Heaney
1999-10-12  0:00       ` Ehud Lamm
1999-10-12  0:00     ` Lutz Donnerhacke [this message]
1999-10-12  0:00       ` Matthew Heaney
1999-10-12  0:00         ` Lutz Donnerhacke
1999-10-12  0:00           ` Ted Dennison
1999-10-12  0:00           ` Ted Dennison
1999-10-13  0:00             ` Lutz Donnerhacke
1999-10-13  0:00               ` Matthew Heaney
1999-10-13  0:00                 ` Ted Dennison
1999-10-12  0:00 ` Nick Roberts
1999-10-14  0:00   ` Sybs ALHABSHI
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox