TIndexCursor

type TIndexCursor = class(TVirtualCursor)

protected

  function GetPhysicalRecNo; override;

  function GetSequentialRecNo; override;

  function GetSequentialRecordCount; override;

  procedure SetPhysicalRecNo(); override;

  procedure SetSequentialRecNo(); override;

  procedure VariantStrToBuffer();

public

  constructor Create();

  destructor Destroy; override;

  function Next; override;

  function Prev; override;

  procedure First; override;

  procedure Last; override;

  procedure Insert();

  procedure Update();

  function CheckUserKey();

  property IndexFile: TIndexFile; [r]

end;

TIndexCursor

TVirtualCursor

TObject