home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPASBOOK.ZIP / FRCECASE.SRC < prev    next >
Encoding:
Text File  |  1985-06-10  |  1.0 KB  |  30 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.