home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / bd / bdlib.pas < prev    next >
Pascal/Delphi Source File  |  1989-07-20  |  428b  |  36 lines
  1. Unit BDLib; {
  2. ----------  }
  3. {$N+}
  4. {$E+}
  5.  
  6. Interface {
  7. --------- }
  8. Type
  9.   MaxStr = String[255];
  10.  
  11.  
  12. Var
  13. S : MaxStr;
  14.  
  15. Function Upper_Case(S : MaxStr) : MaxStr;
  16.  
  17.  
  18. Implementation {
  19. -------------- }
  20. Function Upper_Case(S : MaxStr) : MaxStr;
  21.  
  22. Var
  23.   I,J  : Integer;
  24.  
  25. Begin {Upper_Case}
  26.  
  27. J := Ord(S[0]);
  28.  
  29. For I := 1 To J Do
  30.   S[I] := UpCase(S[I]);
  31.  
  32. Upper_Case := S;
  33.  
  34. End; {Upper_Case}
  35.  
  36. End. {Unit BDLib}