anchor.diff:      vdtStream:
         begin
           SetLength(lvHexStr, TMemoryStream(ADValue.Value.AsStream).Size * 2);
  -        BinToHex(
  -          TMemoryStream(ADValue.Value.AsStream).Memory,
  -          PChar(lvHexStr),
  -          TMemoryStream(ADValue.Value.AsStream).Size);
  +        lvHexStr := BinToHex(
  +          TMemoryStream(ADValue.Value.AsStream).Memory, TMemoryStream(ADValue.Value.AsStream).Size, False);
   
           Result := lvHexStr;
         end;
  
positive.code: unit utilsDValue;
  
  interface
  
  
negative.code: procedure DValueSetAsFloat(ADValue:PDValueRecord; pvValue:Double);
  function DValueGetAsFloat(ADValue: PDValueRecord): Double;
  
  function BinToHex(p: Pointer; l: Integer; ALowerCase: Boolean): DStringW; overload;
  function BinToHex(const ABytes: TBytes; ALowerCase: Boolean): DStringW; overload;
  
  implementation
  
  resourcestring
  