home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / jr_tools / jrgen201.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-21  |  1.6 KB  |  51 lines
  1. Unit JRGEN201 ;
  2.  
  3. (*╔═════════════════════════════════════════════════════════════════════════╗*)
  4. (*║                                                                         ║*)
  5. (*║             JR Unit Library  -  Version 2.01  -  June xxrd 1988         ║*)
  6. (*║                                                                         ║*)
  7. (*║                     General functions and procedures                    ║*)
  8. (*║                                                                         ║*)
  9. (*╚═════════════════════════════════════════════════════════════════════════╝*)
  10.  
  11.  
  12. Interface
  13.  
  14. (*───────────────────────────────────────────────────────────────────────────*)
  15.  
  16. Procedure _Fill(Var _str : String ; _fillch : Char ; _length : Word) ;
  17.  
  18. Procedure _UpperCase(Var _str : String) ;
  19.  
  20. (*───────────────────────────────────────────────────────────────────────────*)
  21.  
  22. Implementation
  23.  
  24. (*───────────────────────────────────────────────────────────────────────────*)
  25.  
  26. Procedure _Fill ;
  27. (*  Version  1.00  *)
  28. (*  Modified 2.00  *)
  29. Begin ;
  30.    While Length(_str)<_length Do _str:=_fillch+_str ;
  31. End  (* Procedure _ZeroFill *) ;
  32.  
  33. (*───────────────────────────────────────────────────────────────────────────*)
  34.  
  35. Procedure _Uppercase ;
  36. Var i : Word ;
  37. Begin ;
  38.    For i:=1 To Length(_str) Do Begin ;
  39.        Case _str(.i.) Of
  40.             'å' : _str(.i.):='Å' ;
  41.             'ä' : _str(.i.):='Ä' ;
  42.             'ö' : _str(.i.):='Ö' ;
  43.             Else  _str(.i.):=UpCase(_str(.i.)) ;
  44.        End ;
  45.    End ;
  46. End  (* Procedure _UpperCase *) ;
  47.  
  48. (*───────────────────────────────────────────────────────────────────────────*)
  49.  
  50. End  (* Of Unit JRGEN201 *).
  51.