TPagedFile

type TPagedFile = class(TObject)

protected

  FStream: TStream;

  FHeaderOffset: Integer;

  FHeaderSize: Integer;

  FRecordSize: Integer;

  FPageSize: Integer;

  FRecordCount: Integer;

  FPagesPerRecord: Integer;

  FCachedSize: Integer;

  FCachedRecordCount: Integer;

  FHeader: PChar;

  FActive: Boolean;

  FNeedRecalc: Boolean;

  FHeaderModified: Boolean;

  FPageOffsetByHeader: Boolean;

  FMode: TPagedFileMode;

  FTempMode: TPagedFileMode;

  FUserMode: TPagedFileMode;

  FAutoCreate: Boolean;

  FNeedLocks: Boolean;

  FVirtualLocks: Boolean;

  FFileLocked: Boolean;

  FFileName: string;

  FBufferPtr: Pointer;

  FBufferAhead: Boolean;

  FBufferPage: Integer;

  FBufferOffset: Integer;

  FBufferSize: Integer;

  FBufferReadSize: Integer;

  FBufferMaxSize: Integer;

  FBufferModified: Boolean;

  FWriteError: Boolean;

  FUseAutoInc: Boolean;

  procedure SetHeaderOffset(); virtual;

  procedure SetRecordSize(); virtual;

  procedure SetHeaderSize(); virtual;

  procedure SetPageSize();

  procedure SetPageOffsetByHeader(); virtual;

  procedure SetRecordCount();

  procedure SetBufferAhead();

  procedure SetFileName();

  procedure SetStream();

  function LockSection(); virtual;

  function UnlockSection(); virtual;

  procedure UpdateBufferSize;

  procedure RecalcPagesPerRecord;

  procedure ReadHeader;

  procedure FlushHeader;

  procedure FlushBuffer;

  function ReadChar;

  procedure WriteChar();

  procedure CheckCachedSize();

  procedure SynchronizeBuffer();

  function Read();

  function ReadBlock();

  function SingleReadRecord();

  procedure WriteBlock();

  procedure SingleWriteRecord();

  function GetRecordCount;

  procedure UpdateCachedSize();

  property VirtualLocks: Boolean; [rw]

public

  constructor Create;

  destructor Destroy; override;

  procedure CloseFile; virtual;

  procedure OpenFile; virtual;

  procedure DeleteFile;

  procedure TryExclusive; virtual;

  procedure EndExclusive; virtual;

  procedure CheckExclusiveAccess;

  procedure DisableForceCreate;

  function CalcPageOffset();

  function IsRecordPresent();

  function ReadRecord(); virtual;

  procedure WriteRecord(); virtual;

  procedure WriteHeader; virtual;

  function FileCreated;

  function IsSharedAccess;

  procedure ResetError;

  function LockPage();

  function LockAllPages();

  procedure UnlockPage();

  procedure UnlockAllPages;

  procedure Flush; virtual;

  property Active: Boolean; [r]

  property AutoCreate: Boolean; [rw]

  property Mode: TPagedFileMode; [rw]

  property TempMode: TPagedFileMode; [r]

  property NeedLocks: Boolean; [r]

  property HeaderOffset: Integer; [rw]

  property HeaderSize: Integer; [rw]

  property RecordSize: Integer; [rw]

  property PageSize: Integer; [rw]

  property PagesPerRecord: Integer; [r]

  property RecordCount: Integer; [rw]

  property CachedRecordCount: Integer; [r]

  property PageOffsetByHeader: Boolean; [rw]

  property FileLocked: Boolean; [r]

  property Header: PChar; [r]

  property FileName: string; [rw]

  property Stream: TStream; [rw]

  property BufferAhead: Boolean; [rw]

  property WriteError: Boolean; [r]

  property UseAutoInc: Boolean; [rw]

end;

TPagedFile

TObject