Re: Converting Type Characters to type string

On Mon, 31 Mar 2008 06:50:32 -0700 (PDT), jedivaughn wrote:

> The only problem I'm having is that I don't want to have to add a
> space or another character to the end of my string of numbers. As long
> as I set str : strin (1..999) := (others -> ' '); I can get all the
> characters I want but they have to be followed by something other then
> for a digit. Is there a way to get an input of a length unknown
> without having to take an extra character? 0ne user suggested the
> look_ahead  procedure if that would help solve this how would I use
> that?

Can you tell us what do you want to achieve?

Normally, you would read a source line using Get_Line of Ada.Text_IO. Then
you would process the obtained string. The former is clear. What is about
the latter? What do you want to parse? Integer numbers?

with Ada.Text_IO;            use Ada.Text_IO;
with Strings_Edit.Integers;  use Strings_Edit.Integers;

procedure Numeric_Input is
begin
   loop
      Put_Line ("Enter a number:");
      declare
         Input  : constant String := Get_Line; -- (Ada 2005)
         Number : Integer;
      begin
         exit when Input'Length = 0;
         Number := Value (Input);
         Put_Line ("You typed " & Image (Number));
      exception
         when Data_Error =>
            Put_Line ("Bad input, possibly more than one number");
         when End_Error =>
            Put_Line ("No number found");
         when Constraint_Error =>
            Put_Line ("The number is too large");
      end;
   end loop;
end Numeric_Input;   

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de