anchor.diff:      property AsInetger: Int64 read GetAsInetger write SetAsInetger;
       property AsBoolean: Boolean read GetAsBoolean write SetAsBoolean;
   
  -
  -
       property AsInterface: IInterface read GetAsInterface write SetAsInterface;
       function GetAsObject: TObject;
       procedure SetAsOwnerObject(const Value: TObject);
  -    
  +    procedure SetReferObject(const value:TObject);
  +
  +    property ArrayItem[pvIndex: Integer]: TDValueItem read GetArrayItem;
  +    property ArraySize: Integer read GetArraySize write SetArraySize;
  +
  +
  +
  +
       property DataType: TDValueDataType read GetDataType;
     end;
   
  
positive.code:     vdtString:
        Result := StrToInt64(ADValue.Value.AsString^)
    else
      raise EConvertError.CreateFmt(SConvertError, [QValueTypeName[ADValue.ValueType],
        QValueTypeName[vdtInteger]]);
    end;
  end;
  
  
negative.code:   DValueSetAsString(@FRawValue, Value);
  end;
  
  procedure TDValueItem.SetReferObject(const value:TObject);
  begin
    DValueSetAsReferObject(@FRawValue, Value);
  end;
  
  end.
  