anchor.diff:          (AsDateTime: TDateTime);
         7:
           (AsString: PString);
  -      {$IF (not Defined(NEXTGEN))}
  +      {$IFDEF HAVE_ASNI_STRING}
         8:
           (AsStringA: PAnsiString);
  -      {$IFEND}
  +      {$ENDIF}
         9:
           (AsStringW: PDStringW);
         15:
  
positive.code:         New(ADValue.Value.AsString);
  {$IFDEF HAVE_ASNI_STRING}
        vdtStringA:
          New(ADValue.Value.vdtStringA);
  {$ENDIF}
        vdtStringW:
          New(ADValue.Value.AsStringW);
  
negative.code: 
  
    TDValueDataType = (vdtUnset, vdtNull, vdtBoolean, vdtSingle, vdtFloat,
      vdtInteger, vdtInt64, vdtUInt64, vdtCurrency, vdtGuid, vdtDateTime,
      vdtStringA,
      vdtString, vdtStringW, vdtStream, vdtInterface, vdtPtr, vdtObject, vdtArray);
  
    TDValueDataTypes = set of TDValueDataType;
  