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