Class: | _DBC |
LPARAMETERS liInt * liInt - Integer LOCAL lcVal,lii DO CASE CASE liInt<0x100 RETURN CHR(liInt) CASE liInt<0x10000 RETURN This.IToC2(liInt) CASE liInt<0x10000 RETURN This.IToC4(liInt) OTHERWISE lcVal="" DO WHILE liInt>0 lii=INT(liInt/256) && Vyděl 256 lcVal=lcVal+CHR(liInt-lii*256) && Převeď rozdíl na znak a přičti ho liInt=lii && Zapiš novou hodnotu pro převod ENDDO ENDCASE RETURN 0