Re: HELP!!!!!!

["F" <phosphorus@libero.it>]

My problem is the second time i recall the function read string, in fact the
value of the function end_of_line remains true after the first time in wich
the user press return.....
II'm trying to use the procedure get_line instead of  get, i'll give you
news about this "experiment"
Thank you for your help
Phosphorus

Chris M. Moore ha scritto nel messaggio
<3bcdaa4e.11615702@news.geccs.gecm.com>...
>On Wed, 17 Oct 2001 16:34:03 +0200, "F" <phosphorus@libero.it> wrote:
>
>>I would like to make a program in wich a string is given in input and the
>>dimension of it is unknown (till someone insert it...)
>>HOW CAN I DO?????? (without using hundreds of lines)
>
>function Read_String_From_Keyboard return String is
>  Temp_Str : Ada.Strings.Unbounded.Unbounded_String :=
>    Ada.Strings.Unbounded.Null_Unbounded_String;
>  Ch : Character;
>begin
>  while not Ada.Text_IO.End_Of_Line loop
>    Ada.Text_IO.Get(Ch);
>    Temp_Str := Ada.Strings.Unbounded."&"(Temp_Str, Ch);
>  end loop;
>  return Ada.Strings.Unbounded.To_String(Temp_Str);
>end Read_String_From_Keyboard;
>
>seems like the safest way.  I haven't tried compiling this though so
>who knows!
>
>--
>Chris M. Moore
>Software engineer
>speaking for myself