Реферат: Модель briefcase средствами MIDAS

if ProviderEOF then Result := 0 else

begin

UpdateCursorPos;

if (FPacketRecords = 0) and FMasterLink.Active and

(FMasterLink.Fields.Count > 0) then CheckDetailRecords else

begin

AddDataPacket(DoGetRecords(FPacketRecords, Result, 0, '', Unassigned),

Result <> FPacketRecords);

ProviderEOF := Result <> FPacketRecords;

end;

Resync([]);

end;

end;

Исправлено это было явным присвоением ProviderEOF значения false перед выполнением проверки if ProviderEOF then Result := 0 else …...

Вышеописанный метод организации подкачки имеет, к сожалению, один большой недостаток – он будет работать лишь при сортировке набора данных на клиенте по первичному ключу. Однако не так сложно доработать его для обхода и этой проблемы.