Программирование MidletPascal

getKeyPressedfunction getKeyPressed: integer;

Возвращает код нажатой в данный момент клавиши или KE_NONE, если ни одна клавиша не нажата. Для стандартных клавиш существуют следующие константы:

begin
while getKeyPressed <> KE_STAR do
begin
delay(100);
end;
end.

См. также: getKeyClicked, keyToAction

getKeyClickedfunction getKeyClicked: integer; 

Возвращает код последней нажатой клавиши или KE_NONE, если нажатий не было. Для стандартных клавиш существуют следующие константы:

begin
while getKeyClicked <> KE_STAR do
begin
delay(100);
end;
end.

См. также: getKeyPressed, keyToAction