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