home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / einfuehr / stupcase.pas < prev    next >
Pascal/Delphi Source File  |  1993-06-07  |  472b  |  24 lines
  1. FUNCTION StrUpCase(Str : pChar) : pChar;
  2. VAR
  3.      INDEX : INTEGER;
  4. BEGIN
  5.      INDEX := 0;
  6.      WHILE Str[INDEX] <> #0 DO
  7.      BEGIN
  8.           CASE Str[INDEX] OF
  9.           'ä':
  10.                Str[INDEX] := 'Ä';
  11.           'ö':
  12.                Str[INDEX] := 'Ö';
  13.           'ü':
  14.                Str[INDEX] := 'Ü';
  15.           ELSE
  16.                Str[INDEX] := UpCase(Str[INDEX]);
  17.           END;
  18.           Inc(INDEX);
  19.      END;
  20.      StrUpCase := Str;
  21. END;
  22.  
  23.  
  24.