Re: Problems with Last statment ....

["Frank J. Lhota" <lhotaf@lexma.meitech.com>]

"Defiant" <ithinkiforgot@.bad.memory.com> wrote in message
news:38ce6681.0@news.per.paradox.net.au...
> hi im writing a program for a uni assignment and it is complete and works
> yet i have set the string type to a min of 1 to a max of 20 characters for
a
> name input...
>
> the problem i am having is i am using the Get_Line(Name, Last) statement
to
> get the name they feed in and the Put(Name); procedure to output... the
> problem is ada compiler grabs whatever extra numerals hex and garbage that
> is left in RAM to fill the extra places between 1 and 20... that the name
> that was input doesnt fill ....
>
>
> any suggestions ...
>
> Thanks
>
>
>

The call Get_Line(Name, Last) returns the most recently read line in Name( 1
.. Last ). For example, if the next line is "Hello", then the call
Get_Line(Name, Last) will set Last to 5 and set Name( 1 .. 5 ) to "Hello".
Any character in Name after Name( Last ) is garbage, and therefore should
not be output.

To write only the characters that were actually in the input line, try the
call

    Put ( Name( 1 .. Last ) );

If you want to output the name right padded to 20 characters, you could do
the following:

    Name ( Last + 1 .. Name'Last ) := ( others => ' ');    -- Blank out the
unread portion.
    Put ( Name );

Hope this helps.