anchor.diff:  interface
   
   uses
  -  Contnrs;
  +  Contnrs, Variants;
   
   type
  -  TmFilterOperator = (foUnknown, foEq, foGtOrEq, foLtOrEq, foLike);
  +  TmFilterOperator = (foUnknown, foEq, foGtOrEq, foLtOrEq, foLike, foNotEq, foStartWith, foEndWith);
   
     { TmFilter }
   
  
positive.code:     function Count : integer;
      function Get(aIndex : integer) : TmFilter;
    end;
  implementation
  
  { TmFilters }
  
negative.code:   inherited Destroy;
  end;
  
  function TmFilter.GetFormattedValue: Variant;
  begin
    if not VarIsNull(FValue) then
    begin
      if FFilterOperator = foLike then
        Result := '%' + FValue + '%'
      else if FFilterOperator = foStartWith then
        Result := FValue + '%'
      else if FFilterOperator = foEndWith then
        Result := '%' + FValue
      else
        Result := FValue;
    end
    else
      Result := FValue;
  end;
  
  end.
  