home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / strings.swg / 0008_ST-CASE2.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  150 b   |  10 lines
  1. Function DnCase(Ch: Char): Char;
  2. Var
  3.   n : Byte Absolute ch;
  4. begin
  5.   Case ch of
  6.     'A'..'Z': n := n or 32;
  7.   end;
  8.   DnCase := chr(n);
  9. end;
  10.