home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / filutl / scan21.arc / ECASE.PAS next >
Pascal/Delphi Source File  |  1988-07-05  |  857b  |  32 lines
  1. unit ECase;
  2.  
  3. { Implements an UPCASE function which includes the international
  4.   characters in the IBM-PC character set.  If you include this unit
  5.   and still wish to use the built-in upcase function, refer to it
  6.   as system.upcase().
  7. }
  8. interface
  9.  
  10. function UpCase(ch: char): char;
  11.  
  12. implementation
  13.  
  14. function UpCase(ch: char): Char;
  15.  
  16. begin
  17.      if ch <= #127 then 
  18.           UpCase := system.upcase(ch)
  19.      else
  20.      case ch of
  21.      #129: UpCase := #154;  { umlat-u }
  22.      #132: Upcase := #142;  { umlat-a }
  23.      #134: UpCase := #143;  { a with a circle over it :-}
  24.      #135: UpCase := #128;  { c with a tail :-}
  25.      #145: UpCase := #146;  { AE, as in Aetna }
  26.      #148: UpCase := #153;  { umlat-o }
  27.      #164: UpCase := #165;  { n with a tilde }
  28.      else UpCase := ch;
  29.      end;  { case }
  30. end; {function UpCase}
  31. end. {unit}
  32.