home *** CD-ROM | disk | FTP | other *** search
/ Crack It! / Crack It!.iso / CONTENT / JSTEST / JST300D.EXE / STRINGRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-09  |  390 b   |  32 lines
  1. {
  2.   ***
  3.  
  4.   STRINGRT.PAS - string-related routines
  5.   (C)Copyright Gerard Paul Java 1996
  6.  
  7.   ***
  8. }
  9.  
  10. {$A+,B-,F-,I-,R-,S-,V-}
  11.  
  12. unit StringRt;
  13.  
  14. interface
  15.  
  16. function UpperCase(S: string): string;
  17.  
  18. implementation
  19.  
  20. function UpperCase(S: string): string;
  21. var
  22.   Idx: byte;
  23.  
  24. begin
  25.   for Idx := 1 to Length(S) do
  26.     S[Idx] := UpCase(S[Idx]);
  27.  
  28.   UpperCase := S;
  29. end;
  30.  
  31. end.
  32.