anchor.diff:  
     SItemNotFound = 'ҲӦĿ:%s';
     SItemExists   = 'Ŀ[%s]Ѿ,ظ.';
  +  SNoNameNode   = '[%s]ڵ㲻';
  +  SNoValueNode  = '[%s]ڵ㲻ֵ';
   
   const
     QValueTypeName: array [TDValueDataType] of String = ('Unassigned', 'NULL',
       'Boolean', 'Single', 'Float', 'Integer', 'Int64', 'Currency', 'Guid',
  -    'DateTime', 'String', 'Stream', 'Array');
  +    'DateTime', 'String', 'StringW', 'Stream', 'Array');
   
   
   function BinToHex(p: Pointer; l: Integer; ALowerCase: Boolean): DStringW;
  
positive.code:   end;
  end;
  
  procedure DValueSetAsString(ADValue:PDValueRecord; pvString:DStringW);
  begin
    CheckDValueSetType(ADValue, vdtString);
    ADValue.Value.AsString^ := pvString;
  end;
  
  function DValueGetAsString(ADValue:PDValueRecord): DStringW;
  var
    lvHexStr:DStringW;
    function DTToStr(ADValue: PDValueRecord): DStringW;
  
negative.code: 
  
  type
  
    TDValueException = class(Exception);
    
  {$IFDEF UNICODE}
    DStringW = UnicodeString;
  {$ELSE}
  