anchor.diff:  
   function DValueGetAsString(ADValue:PDValueRecord): DStringW;
   var
  -  lvHexStr:String;
  +  lvHexStr:DStringW;
     function DTToStr(ADValue: PDValueRecord): DStringW;
     begin
       if Trunc(ADValue.Value.AsFloat) = 0 then
  
positive.code: unit utilsDValue;
  
  interface
  
  
negative.code: {$ELSE}
    DStringW = WideString;
  {$ENDIF UNICODE}
    DCharW = WideChar;
    PDCharW = PWideChar;
    PDStringW = ^DStringW;
  
    // XE5
    {$IF CompilerVersion<26}
    IntPtr=Integer;
    {$IFEND IntPtr}
  
  