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

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.

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);

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

Тип resourceПри создании мидлета, вместе с классами в архиве 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.