home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cufs.zip / UPPER.PAS < prev   
Pascal/Delphi Source File  |  1980-01-01  |  679b  |  34 lines
  1. {*********************************}
  2. {*  Convert Lowercase Characters *}
  3. {*        to  Uppercase          *}
  4.  
  5.  
  6.  
  7. TYPE WORKSTRING=STRING[40];   {** Adjust the String Length Here **}
  8.  
  9. VAR SOMETHING : WORKSTRING;
  10.  
  11. FUNCTION UPSTRING(INPSTRING:WORKSTRING):WORKSTRING;
  12. VAR I : INTEGER;
  13.     TMSTRING :WORKSTRING;
  14.     HOLD : WORKSTRING;
  15.  
  16. BEGIN
  17.      HOLD := '';
  18.      FOR I:=1 TO LENGTH(INPSTRING) DO
  19.   BEGIN
  20.      TMSTRING[I]:=UPCASE(ORD(INPSTRING[I]));
  21.      HOLD := HOLD+TMSTRING[I];
  22.  
  23. END;
  24. UPSTRING := HOLD;
  25. END;
  26. BEGIN
  27.      CLRSCR;
  28.      WRITE('ENTER SOMETHING ');
  29.      READLN(SOMETHING);
  30.      SOMETHING:=UPSTRING(SOMETHING);
  31.      WRITELN(SOMETHING);
  32.  
  33. END.
  34.