home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTOOL5.ZIP / STOUPPER.INC < prev    next >
Encoding:
Text File  |  1987-05-02  |  176 b   |  12 lines
  1.  
  2. #log Map string to upper case 1.0
  3.  
  4. procedure stoupper(var st: anystring);
  5. var
  6.    i: integer;
  7.  
  8. begin
  9.    for i := 1 to LEN(st) do
  10.       st[i] := upcase(st[i]);
  11. end;
  12.