home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TIKTP12A.LZH / UTILITY.ITF < prev    next >
Text File  |  1992-03-16  |  1KB  |  36 lines
  1. (*#module(turbo_comp=>off)*)
  2. INTERFACE Unit Utility ;
  3.  
  4. (*
  5.          General Utility Routines and Constants
  6.          Copyright 1989, Paul West - All Rights Reserved.
  7. *)
  8.  
  9.  
  10.  
  11.  
  12. IMPORT
  13.   DOS(EXIT_PROCESS),
  14.   TURBOSYS(upcase,_STR_INT)
  15.   ;
  16.  
  17. FUNCTION UpperCase  (TheString: MAXSTRING): MAXSTRING ;
  18. FUNCTION LowerCase  (TheString: MAXSTRING): MAXSTRING ;
  19. FUNCTION Capitalize (TheString: MAXSTRING): MAXSTRING ;
  20. FUNCTION Trim       (TheString: MAXSTRING): MAXSTRING ;
  21. FUNCTION Strip      (TheString: MAXSTRING; Delim: Char; Mode: Char): MAXSTRING ;
  22. FUNCTION Word_to_Str(TheWord: Word): MAXSTRING ;
  23. FUNCTION Str_To_Word(TheString: MAXSTRING): Word ;
  24. FUNCTION Count      (TheString: MAXSTRING; Delim: MAXSTRING): Word ;
  25. FUNCTION DCount     (TheString: MAXSTRING; Delim: MAXSTRING): Word ;
  26. FUNCTION Index      (TheString: MAXSTRING; Delim: MAXSTRING; Cnt: Word): Word ;
  27. FUNCTION Field      (TheString: MAXSTRING; Delim: MAXSTRING; Cnt: Word): MAXSTRING ;
  28. FUNCTION Change     (TheString: MAXSTRING; Old:Char; New: Char): MAXSTRING ;
  29. FUNCTION PadLeft    (TheString: MAXSTRING; Size: Word; Pad: Char): MAXSTRING ;
  30. FUNCTION PadRight   (TheString: MAXSTRING; Size: Word; Pad: Char): MAXSTRING ;
  31. FUNCTION PadCenter  (TheString: MAXSTRING; Size: Word; Pad: Char): MAXSTRING ;
  32. FUNCTION DATE_DMA   (Number: Word): MAXSTRING ;
  33. FUNCTION DATE_DWA   (Number: Word): MAXSTRING ;
  34. FUNCTION MD         (Number: INTEGER; Decimal: Word) : MAXSTRING ;
  35. END.
  36.