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

randomizeprocedure randomize;

Переинициализирует генератор случайных числе. При запуске мидлет производит инициализацию генератора случайных чисел, но вы можете сделать это повторно в любой, удобный вам момент.

ordfunction ord(c: char): integer;

Возвращает код ASCII для указанного символа.

oddfunction odd(n: integer): boolean;

Возвращает 'true', если указанное число нечётное или 'false' в другом случае.

isMidletPausedfunction isMidletPaused: boolean;

Возвращает 'true', если мидлет находится в состоянии паузы или 'false' в другом случае.

После запуска, мидлет находится в активном состоянии. Мидлет может войти в состояние паузы когда, например, поступает входящий звонок. Мидлет входит в состояние паузы, вы отвечаете на звонок и после этого можете продолжить работу мидлета. После того, как вы продолжили работу мидлета, он выходит из состояния паузы.

Определение состояния мидлета может быть полезным в различных приложениях. Возьмём, к примеру, игру, которая должна быть приостановлена, когда мидлет вошёл в состояние паузы. Провернуть такое поможет следующий код:

...
repeat
{ обрабатываем клавиатурный ввод и читаем таймер }

{ если мидлет в состоянии паузы, ждём, пока он будет возвращён в активное состояние }

while isMidletPaused do
begin
delay(100);
end;

until gameOver;
...

haltprocedure halt;

Прерывает выполнение мидлета.

assertprocedure assert(cond: boolean);

Проверяет, истинно ли данное условие. Если условие ложно (не истинно), утверждающее сообщение будет записано в стандартный отладочный поток. В описании процедуры debug можно найти более развёрнутую аннотацию отладочного потока. Утверждающее сообщение может выглядеть так:

Assertion failed at: Tetris.mpsrc:162