CnToI Method
Class: _DBC
Expand/Collapse source code of procedure CnToI Source Code
      LPARAMETERS lcInt
      * lcInt - Binary format of integer
      LOCAL liLen,lii,liInt
      liLen=LEN(lcInt)
      DO CASE
         CASE liLen=1
              RETURN ASC(lcInt)
         CASE liLen=2
              RETURN This.C2ToI(lcInt)
         CASE liLen=4
              RETURN This.C4ToI(lcInt)

         OTHERWISE
              liInt=0
              FOR lii=1 TO LEN(lcInt)
                  liInt=liInt+ASC(SUBS(lcInt,lii,1))*2^((lii-1)*8)
              NEXT
              RETURN liInt
      ENDCASE

      RETURN 0