anchor.diff:      FValue := aFilter.Value;
   end;
   
  +procedure TmQueryParameter.AssignStrings(const aList: TStringList);
  +begin
  +  Self.FDataType:= ptString;
  +  if Self.Operator = foEq then
  +    Self.Operator:= foIn;
  +  if aList.Count = 0 then
  +    Self.SetNull
  +  else
  +    FValue := mUtility.ConvertStringListToVariant(aList);
  +end;
  +
  +procedure TmQueryParameter.AssignIntegers(const aList: TIntegerList);
  +begin
  +  Self.FDataType:= ptInteger;
  +  if Self.Operator = foEq then
  +    Self.Operator:= foIn;
  +  if aList.Count = 0 then
  +    Self.SetNull
  +  else
  +    FValue := mUtility.ConvertIntegerListToVariant(aList);
  +end;
  +
  +procedure TmQueryParameter.AssignDoubles(const aList: TDoubleList);
  +begin
  +  Self.FDataType:= ptFloat;
  +  if Self.Operator = foEq then
  +    Self.Operator:= foIn;
  +  if aList.Count = 0 then
  +    Self.SetNull
  +  else
  +    FValue := mUtility.ConvertDoubleListToVariant(aList);
  +end;
  +
  +procedure TmQueryParameter.AssignDates(const aList: TIntegerList);
  +begin
  +  Self.FDataType:= ptDate;
  +  if Self.Operator = foEq then
  +    Self.Operator:= foIn;
  +  if aList.Count = 0 then
  +    Self.SetNull
  +  else
  +    FValue := mUtility.ConvertIntegerListToVariant(aList);
  +end;
  +
  +procedure TmQueryParameter.AssignDateTimes(const aList: TDoubleList);
  +begin
  +  Self.FDataType:= ptDateTime;
  +  if Self.Operator = foEq then
  +    Self.Operator:= foIn;
  +  if aList.Count = 0 then
  +    Self.SetNull
  +  else
  +    FValue := mUtility.ConvertDoubleListToVariant(aList);
  +end;
  +
   procedure TmQueryParameter.AsStringList(aList: TStringList);
   begin
     if not IsNull then
  
positive.code:     Self.AsString:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: TNullableInteger);
  begin
    if aValue.IsNull then
      Self.SetNull
  
negative.code:     Self.AsFloat:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(const aValue: TNullableBoolean; const aConvention: TmBooleanParameterConvention; const aValueForTrue : integer = 1; const aValueForFalse : integer = 0);
  begin
    if (aValue.IsNull) and (aConvention <> bpcUseIntegersAvoidNull) and (aConvention <> bpcUseIntegersButStringsAvoidNull) then
      Self.SetNull
  