anchor.diff:  Begin
     Result:=nil;
     Try
  -    Result := TExprParser.Create(DataSet,Expr,
  -      [],ParserOptions,'',Nil,FldTypeMap);
  +    Result := TExprParser.Create;//(DataSet,Expr,
  +//      [],ParserOptions,'',Nil,FldTypeMap);
     Except
       PSCError(PSCConsts.ErrBadFilter);
     End;
  
positive.code:         End;
        ftVariant:
          Result := TVariantField.Create(Nil);
        ftInterface,
          ftIDispatch: Result := TIDispatchField.Create(Nil);
        ftGuid:
          Result := TGuidField.Create(Nil);
        {$IFDEF D6}
        ftTimeStamp:
          Result := TSQLTimeStampField.Create(Nil);
        {$ENDIF}
      Else
        Begin
  
negative.code:   fldREF = 22;
    fldTABLE = 23;
    fldDATETIME = 24;
  
  // Fake class for lazarus port
  type
    TExprParser = class
      FilterData: Pointer;
    end;
    TParserOptions = integer;
  
  Type
    TPSCFilterFunc = (fUnknown,fUpper,fLower,fSubStr,fTrim,fTrimLeft,fTrimRight,
  