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

readRecordStoreEntryfunction readRecordStoreEntry(rs: recordStore; index: integer): string;

Возвращает данные с указанным индексом из хранилища 'rs' или пустую строку, если не существует записи с подобным индексом.

openRecordStorefunction openRecordStore(name: string): recordStore;

Открывает хранилище с указанным именем. Если указанного хранилища не существует, будет заведено новое хранилище с этим именем

getRecordStoreSizefunction getRecordStoreSize(rs: recordStore): integer;

Возвращает количество записей в хранилище.

deleteRecordStoreprocedure deleteRecordStore(name: string);

Удаляет хранилище с именем 'name'. Все данные внутри указанного хранилища будут потеряны. Если хранилище с указанным именем не существует, не будет предпринято никаких действий.

addRecordStoreEntryfunction addRecordStoreEntry(rs: recordStore; data: string): integer;

Функция добавляет данные 'data' в хранилище 'rs' и возвращает индекс записи внутри хранилища или -1, если произошла ошибка.

Тип recordStoreХранилище на мобильных телефонах аналогично файлам на компьютерах: приложения могут сохранять некие данные в хранилище и впоследствии получать обратно сохранённые данные. Как и файлы, хранилища идентифицируются по имени. Их нельзя группировать внутри каталогово и каждый установленный мидлет имеет доступ только к своим собственным хранилищам. В отличии от файлов, где данные сохраняются последовательно, хранилище больше напоминает массив, где каждая запись имеет свой собственный индекс.

var rs: recordStore;
index: integer;
name: string;
begin
// Записываем некие данные в хранилище
rs := openRecordStore('names');
index := addRecordStoreEntry(rs, 'John Smith');
closeRecordStore(rs);

// Считываем данные
rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs);
end.