home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 December / Chip_2002-12_cd1.bin / tema / clin / CLIN.EXE / SRC / SRC.RAR / U.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-09-20  |  316 b   |  25 lines
  1. unit U;
  2.  
  3. interface
  4.  
  5.  
  6.  function Hex(Co:Byte):String;
  7.  
  8.  
  9. implementation
  10.  
  11.  
  12.  function Hex(Co:Byte):String;
  13.   function H(C:Byte):String;
  14.   begin
  15.    if C<=9 then H:=Chr(C+$30) else
  16.                 H:=Chr(C+Ord('A')-10);
  17.   end;
  18.  begin
  19.   Hex:='$'+H((Co div 16)and $F)+H(Co and $F);
  20.  end;
  21.  
  22.  
  23. begin
  24. end.
  25.