home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / PROCESS.ZIP / HEX.INC < prev    next >
Encoding:
Text File  |  1987-08-17  |  367 b   |  18 lines
  1. (*  HEX functions *)
  2. type
  3.   string2 = string[2];
  4.   string4 = string[4];
  5.  
  6.   const
  7.     HexDigit : Array[0..15] of Char = '0123456789ABCDEF';
  8.  
  9.   function HexByte(B : byte) : string2;
  10.   begin
  11.     HexByte := HexDigit[B shr 4] + HexDigit[B and $F];
  12.   end;
  13.  
  14.   function Hex(I : integer) : string4;
  15.   begin
  16.     Hex := HexByte(Hi(I)) + HexByte(Lo(I));
  17.   end;
  18.