home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / pibterm / pibt3sp4 / uppercas.pas < prev    next >
Pascal/Delphi Source File  |  1985-06-22  |  2KB  |  38 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*               UpperCase --- Convert string to upper case                 *)
  3. (*--------------------------------------------------------------------------*)
  4.  
  5. FUNCTION UpperCase( S: AnyStr ): AnyStr;
  6.  
  7. (*--------------------------------------------------------------------------*)
  8. (*                                                                          *)
  9. (*    Function: UpperCase                                                   *)
  10. (*                                                                          *)
  11. (*    Purpose:  Convert string to upper case                                *)
  12. (*                                                                          *)
  13. (*    Calling Sequence:                                                     *)
  14. (*                                                                          *)
  15. (*       Upper_String := UpperCase( S : AnyStr ): AnyStr;                   *)
  16. (*                                                                          *)
  17. (*          S            --- String to be converted to upper case           *)
  18. (*          Upper_String --- Resultant uppercase string                     *)
  19. (*                                                                          *)
  20. (*    Calls:  UpCase                                                        *)
  21. (*                                                                          *)
  22. (*--------------------------------------------------------------------------*)
  23.  
  24. VAR
  25.    I    : INTEGER;      (* Counter                 *)
  26.    T    : AnyStr;       (* Holds temporary result  *)
  27.  
  28. BEGIN (* UpperCase *)
  29.  
  30.    T := '';
  31.  
  32.    FOR I := 1 TO LENGTH( S ) DO
  33.       T := T + UpCase( S[I] );
  34.  
  35.    UpperCase := T;
  36.  
  37. END   (* UpperCase *);
  38. ə