TGDBExpressionPart

type TGDBExpressionPart = class

protected

  FText: TPCharWithLen;

  function GetParts(); virtual;

  function GetTextFixed(); virtual;

  function GetText;

  function GetTextStrFixed;

  function ParseExpression();

  procedure Init; virtual;

  procedure InitReq();

public

  function NeedValidation(); virtual;

  function MayNeedStringFix; virtual;

  function MayNeedTypeCastFix; virtual;

  constructor Create;

  function IsNamedOperator;

  function PartCount; virtual;

  property Parts []: TGDBExpressionPart; [r]

  property Text: string; [r]

  property TextStrFixed: string; [r]

  property TextEx []: string; [r]

end;

TGDBExpressionPart

TObject