TAbVirtualMemoryStream

type TAbVirtualMemoryStream = class(TStream)

protected

  vmsCachePage: PvmsPage;

  vmsLRU: LongInt;

  vmsMaxMemToUse: LongWord;

  vmsMaxPages: Integer;

  vmsPageList: TList;

  vmsPosition: Int64;

  vmsSize: Int64;

  vmsSwapFileDir: string;

  vmsSwapFileName: string;

  vmsSwapFileSize: Int64;

  vmsSwapStream: TFileStream;

  procedure vmsSetMaxMemToUse();

  function vmsAlterPageList();

  procedure vmsFindOldestPage();

  function vmsGetNextLRU;

  function vmsGetPageForOffset();

  procedure vmsSwapFileCreate;

  procedure vmsSwapFileDestroy;

  procedure vmsSwapFileRead();

  procedure vmsSwapFileWrite();

public

  constructor Create;

  destructor Destroy; override;

  function Read(); override;

  function Write(); override;

  function Seek(); override;

  procedure SetSize(); override;

  property MaxMemToUse: LongWord; [rw]

  property SwapFileDirectory: string; [rw]

end;

TAbVirtualMemoryStream

TObject