[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]

    TYPE
         String2 = STRING[2];
         String4 = STRING[4];
         String8 = STRING[8];

    {*****************************************************************************
     * Function ...... HexB()
     * Purpose ....... To return a byte's hexidecimal representation
     * Parameters .... b          Byte to convert to Hex
     * Returns ....... The hex string equivalent of <b>
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION HexB( b: BYTE ): String2;
    CONST
         HexChar : ARRAY[0..15] OF Char = '0123456789ABCDEF';
    BEGIN
         Hexb := HexChar[b SHR 4] + HexChar[b AND $F];
    END;

    {*****************************************************************************
     * Function ...... HexW()
     * Purpose ....... To return a word's hexidecimal representation
     * Parameters .... w          Word to convert to Hex
     * Returns ....... The hex string equivalent of <w>
     * Notes ......... Uses function HexB
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION HexW( w: WORD ): String4;
    BEGIN
         HexW := HexB(HI(w)) + HexB(LO(w));
    END;

    {*****************************************************************************
     * Function ...... HexDW()
     * Purpose ....... To return a double-word's hexidecimal representation
     * Parameters .... dw          Double-word to convert to Hex
     * Returns ....... The hex string equivalent of <dw>
     * Notes ......... Uses functions HexB, wHi, and wLo
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION HexDW( dw: LONGINT ): String8;
    BEGIN
         HexDW := HexB(HI(wHi(dw))) + HexB(LO(wHi(dw))) +
                  HexB(HI(wLo(dw))) + HexB(LO(wLo(dw)))
    END;

[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]