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=-2.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no
	version=3.4.4
X-Google-Thread: 103376,966831d952eefbb
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!proxad.net!freenix!enst.fr!melchior!cuivre.fr.eu.org!melchior.frmug.org!not-for-mail
From: Marius Amado Alves <amado.alves@netcabo.pt>
Newsgroups: comp.lang.ada
Subject: Re: Random Input-Size and recognizing ENTER-press
Date: Sun, 19 Dec 2004 14:50:45 +0000
Organization: Cuivre, Argent, Or
Message-ID: <mailman.203.1103467874.10401.comp.lang.ada@ada-france.org>
References: <cq3f0i$fau$05$1@news.t-online.com>
NNTP-Posting-Host: lovelace.ada-france.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: melchior.cuivre.fr.eu.org 1103467874 34395 212.85.156.195 (19 Dec
 2004 14:51:14 GMT)
X-Complaints-To: usenet@melchior.cuivre.fr.eu.org
NNTP-Posting-Date: Sun, 19 Dec 2004 14:51:14 +0000 (UTC)
To: comp.lang.ada@ada-france.org
Return-Path: <amado.alves@netcabo.pt>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
	rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
In-Reply-To: <cq3f0i$fau$05$1@news.t-online.com>
X-OriginalArrivalTime: 19 Dec 2004 14:50:34.0462 (UTC)
	FILETIME=[182F97E0:01C4E5DA]
X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at ada-france.org
X-BeenThere: comp.lang.ada@ada-france.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Gateway to the comp.lang.ada Usenet newsgroup"
	<comp.lang.ada.ada-france.org>
List-Unsubscribe: <http://www.ada-france.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada-france.org?subject=unsubscribe>
List-Post: <mailto:comp.lang.ada@ada-france.org>
List-Help: <mailto:comp.lang.ada-request@ada-france.org?subject=help>
List-Subscribe: <http://www.ada-france.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada-france.org?subject=subscribe>
Xref: g2news1.google.com comp.lang.ada:7072
Date: 2004-12-19T14:50:45+00:00

> I need to to Get() a random number of characters (typed by the user) in 
> an array.
> I could loop with a Get() statement and exit when all the inputs are in 
> the array, but for that I'd need to know the number of inputs before.

If this is your only problem then it its no problem. Use an unbounded 
array. For characters that would be an Unbounded_String.

And use Get_Immediate if you want to test explicitly for CR (as the 
usual representation of Enter).

Since you say you want an array (for characters that would be a String), 
encapsulate the reading procedure inside a function returning a String.

On a silver plater:

    function Get_String return String is
       U : Unbounded_String;
    begin
       loop
          Get_Immediate (C);
          exit when C = CR;
          Append (U, C);
       end loop;
       return To_String (U);
    end;