"decode" Value of Constant with harbour

[AUGE_OHR]

hi,

using Everything i can ask for Attribut ... but return value are numeric

Code: Select all

#define EVERYTHING_FILE_ATTRIBUTE_READONLY               0x00000001
#define EVERYTHING_FILE_ATTRIBUTE_HIDDEN                 0x00000002
#define EVERYTHING_FILE_ATTRIBUTE_SYSTEM                 0x00000004
#define EVERYTHING_FILE_ATTRIBUTE_DIRECTORY              0x00000010
#define EVERYTHING_FILE_ATTRIBUTE_ARCHIVE                0x00000020
#define EVERYTHING_FILE_ATTRIBUTE_DEVICE                 0x00000040
#define EVERYTHING_FILE_ATTRIBUTE_NORMAL                 0x00000080
#define EVERYTHING_FILE_ATTRIBUTE_TEMPORARY              0x00000100
#define EVERYTHING_FILE_ATTRIBUTE_SPARSE_FILE            0x00000200
#define EVERYTHING_FILE_ATTRIBUTE_REPARSE_POINT          0x00000400
#define EVERYTHING_FILE_ATTRIBUTE_COMPRESSED             0x00000800
#define EVERYTHING_FILE_ATTRIBUTE_OFFLINE                0x00001000
#define EVERYTHING_FILE_ATTRIBUTE_NOT_CONTENT_INDEXED    0x00002000
#define EVERYTHING_FILE_ATTRIBUTE_ENCRYPTED              0x00004000

my original Xbase++ Code fail under harbour

Code: Select all

   // biggerst Vaule first
   ASORT(aType,,,{|aX,aY| aX[1] > aY[1]})

   iMax  := LEN(aType)
   FOR i := 1 TO iMax
      IF nRest > 0
      ELSE
         EXIT
      ENDIF
      IF aType[i,1] $ nRest

Error BASE/1109 Argument error $ Parameter : [ 1] = N 16384 [ 2] = N 128
Called from NUM2ATTRIBUT(758)
Called from DONOW(619)
Called from (b)MAIN(243)
Called from _DOCONTROLEVENTPROCEDURE(6038)
Called from EVENTS(1797)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5699)
Called from MAIN(417)

so i have to ask how to "decode" under harbour

[AUGE_OHR]

hi,

got it this Way (biggest Value first)

Code: Select all

   iMax  := LEN(aType)
   FOR i := 1 TO iMax
      IF nRest > 0
      ELSE
         EXIT
      ENDIF
*     IF aType[i,1] $ nRest
      nValue := nRest / aType[i,1]
      IF nValue > 0
        cRet  += aType[i,3]
        nRest -= aType[i,1]*INT(nValue)
      ENDIF
   NEXT
RETURN cRet