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

    Var
      n    : Word;
      long : LongInt;

    Function Byte2Hex(numb : Byte): String;       { Converts Byte to hex String }
      Const
        HexChars : Array[0..15] of Char = '0123456789ABCDEF';
      begin
        Byte2Hex[0] := #2;
        Byte2Hex[1] := HexChars[numb shr  4];
        Byte2Hex[2] := HexChars[numb and 15];
      end; { Byte2Hex }

    Function Numb2Hex(numb: Word): String;        { Converts Word to hex String.}
      begin
        Numb2Hex := Byte2Hex(hi(numb))+Byte2Hex(lo(numb));
      end; { Numb2Hex }

    Function Long2Hex(L: LongInt): String;     { Converts LongInt to hex String }
      begin
        Long2Hex := Numb2Hex(L shr 16) + Numb2Hex(L);
      end; { Long2Hex }

    begin
      long := 65536;
      n    := 256;
      Writeln(Long2Hex(long));
      Writeln(Numb2Hex(n));
    end.

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