TDbfParser

type TDbfParser = class(TCustomExpressionParser)

protected

  FCurrentExpression: string;

  procedure FillExpressList; override;

  procedure HandleUnknownVariable(); override;

  function GetVariableInfo();

  function CurrentExpression; override;

  procedure ValidateExpression(); virtual;

  function GetResultType; override;

  function GetResultLen;

  procedure SetCaseInsensitive();

  procedure SetStringFieldMode();

  procedure SetPartialMatch();

public

  constructor Create();

  destructor Destroy; override;

  procedure ClearExpressions; override;

  procedure ParseExpression(); virtual;

  function ExtractFromBuffer(); virtual;

  property DbfFile: Pointer; [rw]

  property Expression: string; [r]

  property ResultLen: Integer; [r]

  property CaseInsensitive: Boolean; [rw]

  property StringFieldMode: TStringFieldMode; [rw]

  property PartialMatch: Boolean; [rw]

end;

TDbfParser

TCustomExpressionParser

TObject