Re: Input a string

[Nick Roberts <nick.roberts@acm.org>]

Stefan Merwitz <thebiggestfan2002@yahoo.de> wrote:

> I need to input a string from the user. For integers I use
> Get(IntegerType). But unfortunately this doesn't seem to work for strings
> ("unconstrained subtype not allowed"). How do I input a string and
> futhermore how to return the first 30 letters if the string is longer than
> 30 chars?

I'll assume I'm not doing your homework for you :-)

One simple soultion is:

      Description: String(1..30); -- constrained
      Desc_Length: Natural range 0..Description'Last;
      ...
   begin
      ...
      Get_Line(Description,Desc_Length);
      if Desc_Length = Description'Last then Skip_Line; end if;

If the (remaining) text on the current line is less than 30 characters, the
line will be read into Description(1..Desc_Length). If the text is longer
than 30 characters, the first 30 will be put into Description, and the rest
will be skipped, and Desc_Length will be set to 30. Either way, the file
pointer will be moved to the beginning of the next line. (Untested.)

Does this help you? There are certainly various other ways to do it.

-- 
Nick Roberts