home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / MFMP110A.ZIP / STRINGS.PAS < prev   
Pascal/Delphi Source File  |  1992-03-09  |  3KB  |  88 lines
  1. (*#module(turbo_comp=>off)*)
  2. Implementation Unit Strings;
  3.  
  4. IMPORT
  5.   TURBOSYS(_STR_INT,upcase)
  6.   ;
  7.  
  8.   Var
  9.     TempString : MAXSTRING;
  10. {========================================================================}
  11. Function MyStr { (InVal : INTEGER; MyStrLen : Byte) : MAXSTRING; };
  12.   Var
  13.     OutString : MAXSTRING;
  14.   Begin
  15.     _STR_INT(InVal,MyStrLen,OutString);
  16.     MyStr := OutString;
  17.   End;
  18. {========================================================================}
  19. Function LtrimRtrim { (InString : MAXSTRING) : MAXSTRING; };
  20.   Begin
  21.     While (Copy(InString,1,1) = chr(9)) Or (Copy(InString,1,1) = ' ') Do Delete(InString,1,1);
  22.     While (Copy(InString,Length(InString),1) = chr(9)) Or
  23.           (Copy(InString,Length(InString),1) = ' ')
  24.           Do Delete(InString,Length(InString),1);
  25.     LtrimRtrim := InString;
  26.   End;
  27. {========================================================================}
  28. Function LoCase(InChar : Char) : Char;
  29.   Begin
  30.     If InChar In ['A'..'Z'] Then LoCase := Chr(Ord(InChar)+32) Else LoCase := InChar;
  31.   End;
  32. {========================================================================}
  33. Function UpperString { (InString : MAXSTRING) : MAXSTRING; };
  34. Var
  35.   x : byte;
  36.   Begin
  37.     For x := 1 To Length(InString) Do InString[x] := UpCase(InString[x]);
  38.     UpperString := InString;
  39.   End;
  40. {========================================================================}
  41. Function LowerString { (InString : MAXSTRING) : MAXSTRING; };
  42. Var
  43.   x : byte;
  44.   Begin
  45.     For x := 1 To Length(InString) Do InString[x] := LoCase(InString[x]);
  46.     LowerString := InString;
  47.   End;
  48. {========================================================================}
  49. Function CapFirst { (InString : MAXSTRING) : MAXSTRING; };
  50.   Begin
  51.     InString := LowerString(InString);
  52.     InString[1] := UpCase(InString[1]);
  53.     CapFirst := InString;
  54.   End;
  55. {========================================================================}
  56. Function InvertString { (InString : MAXSTRING) : MAXSTRING; };
  57. Var
  58.   x : byte;
  59.   Begin
  60.     TempString := '';
  61.     For x := Length(InString) DownTo 1 Do TempString := TempString+InString[x];
  62.     InvertString := TempString;
  63.   End;
  64. {========================================================================}
  65. Function RPos { (StringToFind,StringToSearch : MAXSTRING) : Byte; };
  66.   Begin
  67.     RPos := Pos(InvertString(StringToFind),InvertString(StringToSearch));
  68.   End;
  69. {========================================================================}
  70. Function RCopy { (InString : MAXSTRING; StartPosition,EndPosition : Byte) : MAXSTRING; };
  71.   Begin
  72.     InString := Copy(InvertString(InString),StartPosition,EndPosition);
  73.     RCopy := InvertString(InString);
  74.   End;
  75. {========================================================================}
  76. Function Array2String { (ArrayIn : ArrayInPtr; ArraySize : Byte) : MAXSTRING; };
  77.   Var
  78.     Asx : Byte;
  79.     Ass : MAXSTRING;
  80.   Begin
  81.     Ass := '';
  82.     For Asx := 1 To ArraySize Do If ArrayIn^[Asx] <> chr(0) Then Ass := Ass + ArrayIn^[Asx];
  83.     Array2String := Ass;
  84.   End;
  85. {========================================================================}
  86. Begin
  87. End.
  88.