M I D l e t P a s c a l
EnumerateRecords

Функция включает режим энумерации (пересчета) всех непустых записей в хранилище записей, таким образом удаляется эффект "фрагментации" хранимых строк. Функция возвращает номер первой записи в хранилище или -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





Смотри также