anchor.diff:    FIsNull := false;
   end;
   
  -class function TNullableDouble.CreateNew(aValue: Double): TNullableDouble;
  -var
  -  tmp : TNullableDouble;
  -begin
  -  tmp := TNullableDouble.Create();
  -  tmp.Value := aValue;
  -  Result := tmp;
  -end;
  -
  -class function TNullableDouble.CreateNew: TNullableDouble;
  -begin
  -  Result := TNullableDouble.Create();
  -end;
  +constructor TNullableDouble.Create;
  +begin
  +  inherited Create;
  +end;
  +
  +constructor TNullableDouble.Create(aValue: Double);
  +begin
  +  inherited Create;
  +  FValue := aValue;
  +end;
  +
   
   procedure TNullableDouble.Assign(aSource: TNullableDouble);
   begin
  
positive.code:       function GetValue: UnicodeString;
        procedure SetValue(AValue: UnicodeString);
      public
        class function CreateNew(aValue: UnicodeString): TNullableUnicodeString; overload;
        class function CreateNew(): TNullableUnicodeString; overload;
  
        procedure Assign(aSource : TNullableUnicodeString); overload;
        procedure Assign(aSourceField : TField); override; overload;
  
negative.code:     function GetValue : Integer;
      procedure SetValue(AValue: Integer);
    public
      constructor Create(); override; overload;
      constructor Create(aValue: Integer); overload;
  
      procedure Assign(aSource : TNullableInteger); overload;
      procedure Assign(aSourceField : TField); override; overload;
  