Re: A very strange problem indeed...

[Larry Hazel <lhhazel@otelco.net>]

Karl-Johan Karlsson wrote:
> 
> Note that the following code details below are to do with the same
> program mentioned in the "if statement" thread involving a problem
> Steve Doiel helped me with (thanks a lot Steve!).
> 
> The problem this time is that the string for the name entry is not
> working properly!  If I have Name : String(1..20) it will only
> accept 20 characters and nothing less.  If I delete four lines
> of the code (found below to do with size and amount) then the
> string accepts any amount of characters 20 or less in amount.
> 
>    Name : String(1..20);
>    Name_Count : Natural;
> 
> I have cut the program up into little tiny bits and I've discovered
> that the following four lines of code which preceed the Name code
> is why my Name string isn't working:
> 
>    Put("size you want: ");
>    Item_Type_IO.Get(Choice);
>    Put("amount you want: ");
>    Get(Item_Amount);
> 
> (These four lines do exactly what is required of them except that they
>  seem to be effecting the Name code...)
> 
> These four lines above are the ones which are making my name string accept
> only a certain amount of characters (e.g. 20), so if I type less characters
> it will not go to the next part of the program.
> 
>    Put("Please tell us");
>    New_Line;
>    Put("your name: ");
>    Get_Line(Name, Name_Count);
> 
> The Name code above works only when I delete the size and amount code.
> So the four lines to do with the size and amount code are the problem,
> yet I cannot for the life of me understand why.  Please, any assistance
> would be greatly appreciated!
> 
> (Note that I need the name code to be just above the amount and item code!)
> 
Not sure I understand the problem, but if the code is in the order above, you
need a Skip_Line call after the Get(Item_Amount), since the Get will not consume
an end_of_line.

Larry