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=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6c13cc000274246b
X-Google-Attributes: gid103376,public
From: Stephen Leake <Stephen.Leake@gsfc.nasa.gov>
Subject: Re: Please Help.
Date: 1997/09/09
Message-ID: <341550C8.4881@gsfc.nasa.gov>#1/1
X-Deja-AN: 270998108
References: <01bcbcde$f8a425c0$ca70fe8c@default>
Reply-To: Stephen.Leake@gsfc.nasa.gov
Organization: NASA Goddard Space Flight Center -- Greenbelt, Maryland USA
Newsgroups: comp.lang.ada
Date: 1997-09-09T00:00:00+00:00
List-Id: <comp.lang.ada>


Ken wrote:
> 
> with Text_IO;
> use Text_IO;
> Procedure GetName is
> Name : String(1..12);
> begin
>         Put("Please enter name : ");
>         Get(Name);
> end GetName;
> 
> You probably see the problem now.  How would you just Get(Name) with
> different lengths and compares them.
> 
> Thank you for your help.

check out Text_IO.Get_Line:

procedure Get_Line(Item : out String;   Last : out Natural);

This reads an entire line from the input, and tells you how many
characters it has.

-- 
- Stephe