TBufIndex

type TBufIndex = class(TObject)

protected

  function GetBookmarkSize; virtual; abstract;

  function GetCurrentBuffer; virtual; abstract;

  function GetCurrentRecord; virtual; abstract;

  function GetIsInitialized; virtual; abstract;

  function GetSpareBuffer; virtual; abstract;

  function GetSpareRecord; virtual; abstract;

  function GetRecNo; virtual; abstract;

  procedure SetRecNo(); virtual; abstract;

public

  DBCompareStruct: TDBCompareStruct;

  Name: string;

  FieldsName: string;

  CaseinsFields: string;

  DescFields: string;

  Options: TIndexOptions;

  IndNr: Integer;

  constructor Create(); virtual;

  function ScrollBackward; virtual; abstract;

  function ScrollForward; virtual; abstract;

  function GetCurrent; virtual; abstract;

  function ScrollFirst; virtual; abstract;

  procedure ScrollLast; virtual; abstract;

  function GetRecord(); virtual;

  procedure SetToFirstRecord; virtual; abstract;

  procedure SetToLastRecord; virtual; abstract;

  procedure StoreCurrentRecord; virtual; abstract;

  procedure RestoreCurrentRecord; virtual; abstract;

  function CanScrollForward; virtual; abstract;

  procedure DoScrollForward; virtual; abstract;

  procedure StoreCurrentRecIntoBookmark(); virtual; abstract;

  procedure StoreSpareRecIntoBookmark(); virtual; abstract;

  procedure GotoBookmark(); virtual; abstract;

  function BookmarkValid(); virtual;

  function CompareBookmarks(); virtual;

  function SameBookmarks(); virtual;

  procedure InitialiseIndex; virtual; abstract;

  procedure InitialiseSpareRecord(); virtual; abstract;

  procedure ReleaseSpareRecord; virtual; abstract;

  procedure BeginUpdate; virtual; abstract;

  procedure AddRecord; virtual; abstract;

  procedure InsertRecordBeforeCurrentRecord(); virtual; abstract;

  procedure RemoveRecordFromIndex(); virtual; abstract;

  procedure OrderCurrentRecord; virtual; abstract;

  procedure EndUpdate; virtual; abstract;

  property SpareRecord: TRecordBuffer; [r]

  property SpareBuffer: TRecordBuffer; [r]

  property CurrentRecord: TRecordBuffer; [r]

  property CurrentBuffer: Pointer; [r]

  property IsInitialized: Boolean; [r]

  property BookmarkSize: Integer; [r]

  property RecNo: LongInt; [rw]

end;

TBufIndex

TObject