anchor.diff:      Self.AsFloat:= aValue.Value;
   end;
   
  +procedure TmQueryParameter.Assign(aValue: Variant; const aDataType: TmParameterDataType);
  +begin
  +  FDataType:= aDataType;
  +  if VarIsNull(aValue) then
  +    Self.SetNull
  +  else
  +    FValue := aValue;
  +end;
  +
   
   function TmDatabaseConnectionInfo.GetDatabaseName: String;
   begin
  
positive.code:     procedure Assign(aValue : TNullableInteger); overload;
      procedure Assign(aValue : TNullableDateTime); overload;
      procedure Assign(aValue : TNullableDouble); overload;
  
      property Name : String read FName write FName;
      property DataType : TmParameterDataType read GetParameterDataType write SetParameterDataType;
  
negative.code: interface
  
  uses
    DB, Contnrs, SysUtils, Variants,
    mNullables;
  
  type
  