Class: | _DBC |
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