IToCn Method
Class: _DBC
Expand/Collapse source code of procedure IToCn Source Code
      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