TDoubleLinkedBufIndex

type TDoubleLinkedBufIndex = class(TBufIndex)

protected

  function GetBookmarkSize; override;

  function GetCurrentBuffer; override;

  function GetCurrentRecord; override;

  function GetIsInitialized; override;

  function GetSpareBuffer; override;

  function GetSpareRecord; override;

  function GetRecNo; override;

  procedure SetRecNo(); override;

public

  FLastRecBuf: PBufRecLinkItem;

  FFirstRecBuf: PBufRecLinkItem;

  FNeedScroll: Boolean;

  function ScrollBackward; override;

  function ScrollForward; override;

  function GetCurrent; override;

  function ScrollFirst; override;

  procedure ScrollLast; override;

  function GetRecord(); override;

  procedure SetToFirstRecord; override;

  procedure SetToLastRecord; override;

  procedure StoreCurrentRecord; override;

  procedure RestoreCurrentRecord; override;

  function CanScrollForward; override;

  procedure DoScrollForward; override;

  procedure StoreCurrentRecIntoBookmark(); override;

  procedure StoreSpareRecIntoBookmark(); override;

  procedure GotoBookmark(); override;

  function CompareBookmarks(); override;

  function SameBookmarks(); override;

  procedure InitialiseIndex; override;

  procedure InitialiseSpareRecord(); override;

  procedure ReleaseSpareRecord; override;

  procedure BeginUpdate; override;

  procedure AddRecord; override;

  procedure InsertRecordBeforeCurrentRecord(); override;

  procedure RemoveRecordFromIndex(); override;

  procedure OrderCurrentRecord; override;

  procedure EndUpdate; override;

end;

TDoubleLinkedBufIndex

TBufIndex

TObject