TIndexFile

type TIndexFile = class(TPagedFile)

protected

  FIndexName: string;

  FLastError: string;

  FParsers: array [0..MaxIndexes-1] of TDbfIndexParser;

  FIndexHeaders: array [0..MaxIndexes-1] of Pointer;

  FIndexHeaderModified: array [0..MaxIndexes-1] of Boolean;

  FIndexHeader: Pointer;

  FIndexVersion: TXBaseVersion;

  FRoots: array [0..MaxIndexes-1] of TIndexPage;

  FLeaves: array [0..MaxIndexes-1] of TIndexPage;

  FCurrentParser: TDbfIndexParser;

  FRoot: TIndexPage;

  FLeaf: TIndexPage;

  FMdxTag: TIndexTag;

  FTempMdxTag: TIndexTag;

  FEntryHeaderSize: Integer;

  FPageHeaderSize: Integer;

  FTagSize: Integer;

  FTagOffset: Integer;

  FHeaderPageNo: Integer;

  FSelectedIndex: Integer;

  FRangeIndex: Integer;

  FIsDescending: Boolean;

  FUniqueMode: TIndexUniqueType;

  FModifyMode: TIndexModifyMode;

  FHeaderLocked: Integer;

  FKeyBuffer: array [0..100] of Char;

  FLowBuffer: array [0..100] of Char;

  FHighBuffer: array [0..100] of Char;

  FEntryBof: Pointer;

  FEntryEof: Pointer;

  FDbfFile: Pointer;

  FCanEdit: Boolean;

  FOpened: Boolean;

  FRangeActive: Boolean;

  FUpdateMode: TIndexUpdateMode;

  FUserKey: PChar;

  FUserRecNo: Integer;

  FUserBCD: array [0..10] of Byte;

  FUserNumeric: Double;

  FForceClose: Boolean;

  FForceReadOnly: Boolean;

  FCodePage: Integer;

  FCollation: PCollationTable;

  FCompareKeys: TDbfCompareKeysEvent;

  FOnLocaleError: TDbfLocaleErrorEvent;

  function GetNewPageNo;

  procedure TouchHeader();

  function CreateTempFile();

  procedure ConstructInsertErrorMsg;

  procedure WriteIndexHeader();

  procedure SelectIndexVars();

  procedure CalcKeyProperties;

  procedure UpdateIndexProperties;

  procedure ClearRoots;

  function CalcTagOffset();

  function FindKey();

  function InsertKey();

  procedure DeleteKey();

  function InsertCurrent;

  procedure DeleteCurrent;

  function UpdateCurrent();

  function UpdateIndex();

  procedure ReadIndexes;

  procedure Resync();

  procedure ResyncRoot;

  procedure ResyncTree;

  procedure ResyncRange();

  procedure ResetRange;

  procedure SetBracketLow;

  procedure SetBracketHigh;

  procedure WalkFirst;

  procedure WalkLast;

  function WalkPrev;

  function WalkNext;

  function CompareKeysNumericNDX();

  function CompareKeysNumericMDX();

  function CompareKeysString();

  function GetName;

  function GetDbfLanguageId;

  function GetKeyLen;

  function GetKeyType;

  function GetExpression;

  function GetPhysicalRecNo;

  function GetSequentialRecNo;

  function GetSequentialRecordCount;

  procedure SetSequentialRecNo();

  procedure SetPhysicalRecNo();

  procedure SetUpdateMode();

  procedure SetIndexName();

public

  constructor Create();

  destructor Destroy; override;

  procedure Open;

  procedure Close;

  procedure Clear;

  procedure Flush; override;

  procedure ClearIndex;

  procedure AddNewLevel;

  procedure UnlockHeader;

  procedure InsertError;

  function Insert();

  function Update();

  procedure Delete();

  function CheckKeyViolation();

  procedure RecordDeleted();

  function RecordRecalled();

  procedure DeleteIndex();

  procedure RepageFile;

  procedure CompactFile;

  procedure PrepareRename();

  procedure CreateIndex();

  function ExtractKeyFromBuffer();

  function SearchKey();

  function Find();

  function IndexOf();

  procedure DisableRange;

  procedure EnableRange;

  procedure GetIndexNames();

  procedure GetIndexInfo();

  procedure WriteHeader; override;

  procedure WriteFileHeader;

  procedure First;

  procedure Last;

  function Next;

  function Prev;

  procedure SetRange();

  procedure CancelRange;

  function MatchKey();

  function CompareKey();

  function CompareKeys();

  function PrepareKey();

  property KeyLen: Integer; [r]

  property IndexVersion: TXBaseVersion; [r]

  property EntryHeaderSize: Integer; [r]

  property KeyType: Char; [r]

  property SequentialRecordCount: Integer; [r]

  property SequentialRecNo: Integer; [rw]

  property PhysicalRecNo: Integer; [rw]

  property HeaderPageNo: Integer; [r]

  property IndexHeader: Pointer; [r]

  property EntryBof: Pointer; [r]

  property EntryEof: Pointer; [r]

  property UniqueMode: TIndexUniqueType; [r]

  property IsDescending: Boolean; [r]

  property UpdateMode: TIndexUpdateMode; [rw]

  property IndexName: string; [rw]

  property Expression: string; [r]

  property ForceClose: Boolean; [r]

  property ForceReadOnly: Boolean; [r]

  property CodePage: Integer; [rw]

  property OnLocaleError: TDbfLocaleErrorEvent; [rw]

end;

TIndexFile

TPagedFile

TObject