home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / numbers.swg / 0013_HEXCONV.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  763 b   |  31 lines
  1. Var
  2.   n    : Word;
  3.   long : LongInt;
  4.  
  5. Function Byte2Hex(numb : Byte): String;       { Converts Byte to hex String }
  6.   Const
  7.     HexChars : Array[0..15] of Char = '0123456789ABCDEF';
  8.   begin
  9.     Byte2Hex[0] := #2;
  10.     Byte2Hex[1] := HexChars[numb shr  4];
  11.     Byte2Hex[2] := HexChars[numb and 15];
  12.   end; { Byte2Hex }
  13.  
  14. Function Numb2Hex(numb: Word): String;        { Converts Word to hex String.}
  15.   begin
  16.     Numb2Hex := Byte2Hex(hi(numb))+Byte2Hex(lo(numb));
  17.   end; { Numb2Hex }
  18.  
  19. Function Long2Hex(L: LongInt): String;     { Converts LongInt to hex String }
  20.   begin
  21.     Long2Hex := Numb2Hex(L shr 16) + Numb2Hex(L);
  22.   end; { Long2Hex }
  23.  
  24.  
  25. begin
  26.   long := 65536;
  27.   n    := 256;
  28.   Writeln(Long2Hex(long));
  29.   Writeln(Numb2Hex(n));
  30. end.
  31.