home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / FRCECASE.SRC < prev    next >
Text File  |  1986-01-06  |  1KB  |  35 lines
  1. {--------------------------------------------------}
  2. {                   FORCE_CASE                     }
  3. {     Forces a string to upper or lower case.      }
  4. {               By Jeff Duntemann                  }
  5. {                                                  }
  6. { ASSUMES:                                         }
  7. {   TYPE STRING255 = STRING[255];                  }
  8. {                                                  }
  9. {                         Turbo Pascal V2.0        }
  10. {                         Last update: 12/11/84    }
  11. {--------------------------------------------------}
  12.  
  13. FUNCTION FORCE_CASE(UP : BOOLEAN; TARGET : STRING255) : STRING255;
  14.  
  15. CONST UPPERCASE : SET OF CHAR = ['A'..'Z'];
  16.       LOWERCASE : SET OF CHAR = ['a'..'z'];
  17.  
  18. VAR I : INTEGER;
  19.  
  20. BEGIN
  21.   IF UP THEN FOR I := 1 TO LENGTH(TARGET) DO
  22.     IF TARGET[I] IN LOWERCASE THEN
  23.       TARGET[I] := UPCASE(TARGET[I])
  24.     ELSE { NULL }
  25.   ELSE FOR I := 1 TO LENGTH(TARGET) DO
  26.     IF TARGET[I] IN UPPERCASE THEN
  27.       TARGET[I] := CHR(ORD(TARGET[I])+32);
  28.   FORCE_CASE := TARGET
  29. END;
  30. g!
  31.  
  32. Jeff Duntemann KB2JN
  33. 805 Seaword Road
  34. Towson MD 21204
  35. (301) 583-2302