IToC4Rev Method
Class: _DBC
Expand/Collapse source code of procedure IToC4Rev Source Code
      LPARAMETERS liVal
      * liInt - Integer
      LOCAL lcVal,lii

      lii=INT(liVal/256) && Vyděl 256
      lcVal=CHR(liVal-lii*256) && Převeď rozdíl na znak a přičti ho
      liVal=lii && Zapiš novou hodnotu pro převod

      lii=INT(liVal/256) && Vyděl 256
      lcVal=CHR(liVal-lii*256)+lcVal
      liVal=lii && Zapiš novou hodnotu pro převod

      lii=INT(liVal/256) && Vyděl 256
      lcVal=CHR(liVal-lii*256)+lcVal
      liVal=lii && Zapiš novou hodnotu pro převod

      lii=INT(liVal/256) && Vyděl 256
      RETURN CHR(liVal-lii*256)+lcVal && Převeď rozdíl na znak a přičti ho