anchor.diff:    begin
       FAttributes[i] := TNullableString.Create();
       FValues[i] := TNullableDouble.Create();
  +    FValues[i].FractionalPartDigits:= aFractionalPartDigits;
     end;
   end;
   
  
positive.code:   private
      FEvent : TmUprightEvent;
      FKey : TmUprightValueKey;
      FUprights : array[0..MAX_NUM_OF_VALUES-1] of double;
      FHighlights : array[0..MAX_NUM_OF_VALUES-1] of TmUprightHighlightType;
      FLimits : array[0..MAX_NUM_OF_VALUES-1] of TNullableDouble;
      FRemainings : array[0..MAX_NUM_OF_VALUES-1] of TNullableDouble;
  
negative.code:   Result := FLD_REMAINING + IntToStr(aIndex + 1);
  end;
  
  function TmUprightDatum.GetUpright(const aIndex: byte): TNullableDouble;
  begin
    Result := FUprights[aIndex];
  end;
  