home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / MFMP110A.ZIP / STRINGS.ITF < prev    next >
Text File  |  1992-03-09  |  762b  |  22 lines
  1. (*#module(turbo_comp=>off)*)
  2. Interface Unit Strings;
  3.  
  4. IMPORT
  5.   TURBOSYS
  6.   ;
  7.  
  8.   Type
  9.     ArrayInPtr = ^ArrayInType;
  10.     ArrayInType = Array[1..255] Of Char;
  11.  
  12.   Function MyStr(InVal : INTEGER; MyStrLen : Byte) : MAXSTRING;
  13.   Function LtrimRtrim(InString : MAXSTRING) : MAXSTRING;
  14.   Function UpperString(InString : MAXSTRING) : MAXSTRING;
  15.   Function LowerString(InString : MAXSTRING) : MAXSTRING;
  16.   Function CapFirst(InString : MAXSTRING) : MAXSTRING;
  17.   Function InvertString(InString : MAXSTRING) : MAXSTRING;
  18.   Function RPos(StringToFind,StringToSearch : MAXSTRING) : Byte;
  19.   Function RCopy(InString : MAXSTRING; StartPosition,EndPosition : Byte) : MAXSTRING;
  20.   Function Array2String(ArrayIn : ArrayInPtr; ArraySize : Byte) : MAXSTRING;
  21. END.
  22.