home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / DTOOL / INTER57F.ZIP / INT2RTF.ZIP / INITUPC.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-31  |  475b  |  22 lines
  1. { InitUpC unit.                                                   }
  2. { The software included, data formats and basic algorithms are    }
  3. { copyright (C) 1995, 96 by Slava Gostrenko. All rights reserved. }
  4.  
  5. unit
  6.   InitUpC;
  7.  
  8. interface
  9.  
  10. procedure InitUpcaseArr (var Arr: array of Char);
  11.  
  12. implementation
  13.  
  14. procedure InitUpcaseArr (var Arr: array of Char);
  15. var I: Integer;
  16. begin
  17.   for I := Low (Arr) to High (Arr) do
  18.     Arr [I] := Upcase (Chr (I));
  19. end;
  20.  
  21. end.
  22.