How it works get_line function

How it works get_line function

[juanmiuk]

Hello All,

I tried to worked out how works the function get_line but gave me a
error:

with Ada.Text_Io;
use Ada.Text_Io;

procedure Read_String_func is
	Line : String (1 .. 80);
begin
	Put("Write a string: ");
	Line := Get_Line;
end Read_String_Func;

Write a string: adfkjadfk


raised CONSTRAINT_ERROR : read_string_func.adb:11 length check failed

What I was doing wrong?

Thanks in advance

Juan Miguel

Re: How it works get_line function

[Jeffrey R. Carter]

juanmiuk wrote:
> with Ada.Text_Io;
> use Ada.Text_Io;
> 
> procedure Read_String_func is
> 	Line : String (1 .. 80);
> begin
> 	Put("Write a string: ");
> 	Line := Get_Line;
> end Read_String_Func;
> 
> Write a string: adfkjadfk
> 
> raised CONSTRAINT_ERROR : read_string_func.adb:11 length check failed
> 
> What I was doing wrong?

You were attempting to assign a 9-Character String to an 80-Character String. 
When assigning arrays, both sides need to be the same size.

The Get_Line function is best suited to initializing a String object, or 
providing a value to another subprogram:

S1 : constant String := Ada.Text_IO.Get_Line;

S2 : String := Ada.Text_IO.Get_Line;

Ada.Text_IO.Put_Line (Item => Ada.Text_IO.Get_Line);

-- 
Jeff Carter
"I like it when the support group complains that they have
insufficient data on mean time to repair bugs in Ada software."
Robert I. Eachus
91

Re: How it works get_line function

[juanmiuk]

Hello Jeffrey,

First of all say thank you for you help. I got it, and I wrote a
program for show you:

with Ada.Text_Io;		use Ada.Text_Io;
with Ada.Integer_Text_IO;	use Ada.Integer_Text_IO;

procedure Read_String_func_1 is

begin
	Put ("Type a String: ");
	declare
	    Cadena : Constant String := Get_Line;
	begin
		Put("You typed: " & Cadena);
	end;

	New_Line;

	Put("Type a Integer: ");
	declare
		Input : Constant String := Get_Line;
		Num   : Natural;
	begin
		Num := Natural'Value(Input);
		Put ("You typed :" );
		Put(Num, 6);
		New_Line;
		Put("Converted with Natural'Image is: " & Natural'Image(Num));
	end;

end Read_String_Func_1;
On 8 May, 22:33, "Jeffrey R. Carter"
<spam.jrcarter....@nospam.acm.org> wrote:
> juanmiuk wrote:
> > with Ada.Text_Io;
> > use Ada.Text_Io;
>
> > procedure Read_String_func is
> >    Line : String (1 .. 80);
> > begin
> >    Put("Write a string: ");
> >    Line := Get_Line;
> > end Read_String_Func;
>
> > Write a string: adfkjadfk
>
> > raised CONSTRAINT_ERROR : read_string_func.adb:11 length check failed
>
> > What I was doing wrong?
>
> You were attempting to assign a 9-Character String to an 80-Character String.
> When assigning arrays, both sides need to be the same size.
>
> The Get_Line function is best suited to initializing a String object, or
> providing a value to another subprogram:
>
> S1 : constant String := Ada.Text_IO.Get_Line;
>
> S2 : String := Ada.Text_IO.Get_Line;
>
> Ada.Text_IO.Put_Line (Item => Ada.Text_IO.Get_Line);
>
> --
> Jeff Carter
> "I like it when the support group complains that they have
> insufficient data on mean time to repair bugs in Ada software."
> Robert I. Eachus
> 91