Функция включает режим энумерации (пересчета) всех непустых записей в хранилище записей, таким образом удаляется эффект "фрагментации" хранимых строк. Функция возвращает номер первой записи в хранилище или -1 если произошла какая-то ошибка.
function EnumerateRecords(rs: recordStore): integer;
|
Пример
uses RSEnum;
var rs: recordStore;
entryIdx: integer;
rsEnumIdx: integer;
data: string;
begin
rs := OpenRecordStore('Test record store');
entryIdx := AddRecordStoreEntry(rs, '11111');
entryIdx := AddRecordStoreEntry(rs, '22222');
entryIdx := AddRecordStoreEntry(rs, '33333'); // Добавляем 3 записи в хранилище
rsEnumIdx := EnumerateRecords(rs); // Включаем режим энумерации
repeat
data := NextRecord(rsEnumIdx);
debug(data);
until data = '';
DeleteRecordStoreEntry(rs, 2); // Удаляем вторую запись
UpdateRSEnumeration(rsEnumIdx); // Обновляем номера строк
repeat
data := NextRecord(rsEnumIdx);
debug(data);
until data = '';
CloseRSEnumeration(rsEnumIdx); // Отключаем режим энумерации
end. |
Совместимость MIDP1.0
Требуемый модуль
RSEnum
Смотри также
|