Re: please help me!!!!!!

[Jeffrey Carter <jeffrey.carter@boeing.com>]

You might want to consider using a somewhat more meaningful subject.
When I see something like this, my thoughts are something like:

Somebody who calls himself F has posted a message with the subject
"please help me!!!!!!". Help is needed on what? Is it something I can
help with? Do I want to read the message and perhaps waste my time
finding out it's something I'm not interested in?

F wrote:
> 
> I want to "clean" the keyboard buffer after a user action, for example i
> have a piece of a procedure such as
> ...
> c:character; s:string(1..20); ind:integer:=1;
> ...
> while not end_of_line loop
> get(c);
> s(i):=c;
> i:=i+1;
> end loop;

It's hard to tell, since Ind is never referenced and I is undefined.
However, if I is supposed to be Ind, what you're doing is writing
Ada.Text_IO.Get_Line, except you raise Constraint_Error if the line is
as long as or longer than S, and you don't skip the line terminator if
it isn't. The easy way to do this is

Get_Line (Item => S, Last => Ind);

After this call, S (S'First .. Ind) contains the characters read. If Ind
= S'Last, then the line terminator was not skipped.

-- 
Jeffrey Carter