TIndexPage

type TIndexPage = class(TObject)

protected

  FIndexFile: TIndexFile;

  FLowerPage: TIndexPage;

  FUpperPage: TIndexPage;

  FPageBuffer: Pointer;

  FEntry: Pointer;

  FEntryNo: Integer;

  FLockCount: Integer;

  FModified: Boolean;

  FPageNo: Integer;

  FWeight: Integer;

  FLowBracket: Integer;

  FLowIndex: Integer;

  FLowPage: Integer;

  FLowPageTemp: Integer;

  FHighBracket: Integer;

  FHighIndex: Integer;

  FHighPage: Integer;

  FHighPageTemp: Integer;

  procedure LocalInsert();

  procedure LocalDelete;

  procedure Delete;

  procedure SyncLowerPage;

  procedure WritePage;

  procedure Split;

  procedure LockPage;

  procedure UnlockPage;

  function RecurPrev;

  function RecurNext;

  procedure RecurFirst;

  procedure RecurLast;

  procedure SetEntry();

  procedure SetEntryNo();

  procedure SetPageNo();

  procedure SetLowPage();

  procedure SetHighPage();

  procedure SetUpperPage();

  procedure UpdateBounds();

  function GetEntry(); virtual; abstract;

  function GetLowerPageNo; virtual; abstract;

  function GetKeyData; virtual; abstract;

  function GetNumEntries; virtual; abstract;

  function GetKeyDataFromEntry(); virtual; abstract;

  function GetRecNo; virtual; abstract;

  function GetIsInnerNode; virtual; abstract;

  procedure IncNumEntries; virtual; abstract;

  procedure SetNumEntries(); virtual; abstract;

  procedure SetRecLowerPageNo(); virtual; abstract;

  procedure SetRecLowerPageNoOfEntry(); virtual; abstract;

public

  constructor Create();

  destructor Destroy; override;

  function FindNearest();

  function PhysicalRecNo;

  function MatchKey;

  procedure GotoInsertEntry;

  procedure Clear;

  procedure GetNewPage;

  procedure Modified;

  procedure RecalcWeight;

  procedure UpdateWeight;

  procedure Flush;

  procedure SaveBracket;

  procedure RestoreBracket;

  property Key: PChar; [r]

  property Entry: Pointer; [r]

  property EntryNo: Integer; [rw]

  property IndexFile: TIndexFile; [r]

  property UpperPage: TIndexPage; [rw]

  property LowerPage: TIndexPage; [r]

  property PageBuffer: Pointer; [r]

  property PageNo: Integer; [rw]

  property Weight: Integer; [r]

  property NumEntries: Integer; [r]

  property HighBracket: Integer; [rw]

  property HighIndex: Integer; [r]

  property HighPage: Integer; [rw]

  property LowBracket: Integer; [rw]

  property LowIndex: Integer; [r]

  property LowPage: Integer; [rw]

end;

TIndexPage

TObject