Re: Converting Type Characters to type string

[george.priv@gmail.com]

On Mar 30, 7:52 pm, jedivaughn <jedivaugh...@gmail.com> wrote:
> Thanks for the suggestions but I'm not quite sure how I would apply
> these to my program can you give me an example in code?
>
> Thanks for your patience
> John

procedure Test_Get is

   Str   : String (1 .. 10) := (others => ' ');
   Index : Natural          := 0;
   C     : Character;

begin

   while index < Str'Last loop
      Ada.Text_IO.Get (C);
      -- This check can be different according to your needs:
      exit when not Ada.Characters.Handling.Is_Digit (C);
      Index := Index + 1;
      Str (Index) := C;
   end loop;
   Ada.Text_IO.Put_Line (Str);

end Test_Get;

But I would rather use Get_Line instead of Get to get entire string
and then figure out what to do with it.

George.