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

haltprocedure halt;

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

getPropertyfunction getProperty(propertyName: string): string;

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

begin
debug(getProperty('microedition.locale'));
end.

debugprocedure debug(s: string);

Выводит данную строку, используя стандартный отладочный поток эмулятора. На мобильном устройстве эта функция никак себя не проявляет (разве что, мидлет будет иметь немного больший размер). Если вы используете встроенный эмулятор, запускаемый через браузер, отладочный поток будет в окне консоли Java. Чтобы увидеть окно консоли Java, в Проводнике необходимо выбрать пункт меню "Сервис -> Sun Java Console" ("Tools -> Sun Java Console"). В случае использования прочих эмуляторов, отладочный поток будет передаваться в окно консоли DOS, открывающееся вместе с запуском эмулятора.

chrfunction chr(n: integer): char;

Возвращает символ указанного кода ASCII. Поведение функции не определено, если параметр имеет значение, большее 127.

assertprocedure assert(cond: boolean);

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

Assertion failed at: Tetris.mpsrc:162

resourceAvailablefunction resourceAvailable(res: resource):boolean;

Возвращает 'true', если указанный ресурс доступен (т.е. открыт корректно).

readLinefunction readLine(res: resource):string;

Считывает следующую строку из указанного ресурса и возвращает её. В случае, если больше нечего читать или произошла ошибка чтения, будет возвращена пустая строка. Если в ресурсе будут встречены пустые строки, они будут пропущены.

readBytefunction readByte(res: resource):integer;

Считывает следующий байт из указанного ресурса или возвращает EOF, если больше нечего читать или произошла ошибка чтения из ресурса.

openResourcefunction openResource(name: string):resource;

Открывает ресурсный файл, расположенный внутри JAR-архива мидлета. Чтобы добавить ресурсный файл к JAR-архиву, используйте функцию "Проект -> Вставить ресурс".

var
res   : resource;
byte  : integer;
line  : string;
index : integer;
begin
res := openResource('/data.txt');

if (resourceAvailable(res)) then
begin
byte := readByte(res);
line := readLine(res);

closeResource(res);
end;

showForm;
index := formAddString('Byte is: ' + chr(byte));
index := formAddString('Line is: ' + line);
delay(1000);
end.

closeResourceprocedure closeResource(res: resource);

Закрывает указанный ресурс.