anchor.diff:  function TDValueItem.GetDataType: TDValueDataType;
   begin
     Result := FRawValue.ValueType;
  +end;
  +
  +function TDValueItem.IsEmpty: Boolean;
  +begin
  +  Result := DValueIsEmpty(@FRawValue);
   end;
   
   procedure TDValueItem.SetArraySize(const Value: Integer);
  
positive.code:   {$ENDIF}
  end;
  
  destructor TDValueObject.Destroy;
  begin
    ClearDValue(@FRawValue);
  
negative.code: function GetDValueObjectCount: Integer;
  
  function GetDValuePrintDebugInfo: String;
  
  
  
  
  
  