anchor.diff:      function AsString : String;
   
       class function StringToVariant(const aValue : String) : Variant;
  -
  +    class function VariantToString(const aValue : Variant) : String;
  +  public
       property Value : Integer read GetValue write SetValue;
     end;
   
  
positive.code:   Result := FValue;
  end;
  
  procedure TNullableDouble.SetValue(AValue: Double);
  begin
    FValue:= aValue;
    FIsNull := false;
  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
    if not aSource.IsNull then
      Self.Value := aSource.Value
    else
  
negative.code: 
    TNullableDouble = class (TAbstractNullable)
    private
      FValue: Double;
      FDigits: byte;
      function GetValue : Double;
      procedure SetDigits(AValue: byte);
      procedure SetValue (AValue : Double);
    public
      constructor Create(); override; overload;
  