Re: How to exit a loop with keyboard input

[Manuel Collado <m.collado@domain.invalid>]

Georg Bauhaus escribi�:
> Jerry schrieb:
> 
>> with Ada.Text_IO;
>> use  Ada.Text_IO;
>> procedure key is
>>     i         : Integer;
>>     Keystroke : Character;
>>     Available : Boolean;
>> begin
>>     i := 0;
>>     loop
>>         Put(Integer'Image(i));
>>         Get_Immediate(Keystroke, Available);
>>             if Available then
>>                 if Keystroke = 'q' then
>>                     exit;
>>                 end if;
>>             end if;
>>         i := i + 1;
>>     end loop;
>>     Put_Line("Finished");
>> end key;
> 
> 
> Works as desired on Debian GNU/Linux stable.

Also in Windows XP with GNAT GPL 2005

-- 
Manuel Collado - http://lml.ls.fi.upm.es/~mcollado