home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MFM_119C.ZIP / MFMSTR.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-03  |  4KB  |  102 lines
  1. Unit MfmStr;
  2. {========================================================================}
  3. Interface
  4.   Type
  5.     ArrayInPtr = ^ArrayInType;
  6.     ArrayInType = Array[1..255] Of Char;
  7.   Function MyStr(InVal : LongInt; MyStrLen : Byte) : String;
  8.   Function AllTrim(InString : String) : String;
  9.   Function UpperString(InString : String) : String;
  10.   Function LowerString(InString : String) : String;
  11.   Function CapFirst(InString : String) : String;
  12.   Function InvertString(InString : String) : String;
  13.   Function RPos(StringToFind,StringToSearch : String) : Byte;
  14.   Function RCopy(InString : String; StartPosition,EndPosition : Byte) : String;
  15.   Function HereToSpace(InString : String; Start : Byte) : String;
  16. {========================================================================}
  17. Implementation
  18. {========================================================================}
  19. Function MyStr(InVal : LongInt; MyStrLen : Byte) : String;
  20.   Var
  21.     OutString : String;
  22.   Begin
  23.     Str(InVal:MyStrLen,OutString);
  24.     MyStr := OutString;
  25.   End;
  26. {========================================================================}
  27. Function AllTrim(InString : String) : String;
  28.   Begin
  29.     While (Copy(InString,1,1) = ^I) Or (Copy(InString,1,1) = ' ') Do Delete(InString,1,1);
  30.     While (Copy(InString,Length(InString),1) = ^I) Or
  31.           (Copy(InString,Length(InString),1) = ' ')
  32.           Do Delete(InString,Length(InString),1);
  33.     AllTrim := InString;
  34.   End;
  35. {========================================================================}
  36. Function LoCase(InChar : Char) : Char;
  37.   Begin
  38.     If InChar In ['A'..'Z'] Then LoCase := Chr(Ord(InChar)+32) Else LoCase := InChar;
  39.   End;
  40. {========================================================================}
  41. Function UpperString(InString : String) : String;
  42.   Var
  43.     Usb : Byte;
  44.   Begin
  45.     For Usb := 1 To Length(InString) Do InString[Usb] := UpCase(InString[Usb]);
  46.     UpperString := InString;
  47.   End;
  48. {========================================================================}
  49. Function LowerString(InString : String) : String;
  50.   Var
  51.     Lsb : Byte;
  52.   Begin
  53.     For Lsb := 1 To Length(InString) Do InString[Lsb] := LoCase(InString[Lsb]);
  54.     LowerString := InString;
  55.   End;
  56. {========================================================================}
  57. Function CapFirst(InString : String) : String;
  58.   Begin
  59.     InString := LowerString(InString);
  60.     InString[1] := UpCase(InString[1]);
  61.     CapFirst := InString;
  62.   End;
  63. {========================================================================}
  64. Function InvertString(InString : String) : String;
  65.   Var
  66.     Isb : Byte;
  67.     Iss : String;
  68.   Begin
  69.     Iss := '';
  70.     For Isb := Length(InString) DownTo 1 Do Iss := Iss+InString[Isb];
  71.     InvertString := Iss;
  72.   End;
  73. {========================================================================}
  74. Function RPos(StringToFind,StringToSearch : String) : Byte;
  75.   Begin
  76.     RPos := Pos(InvertString(StringToFind),InvertString(StringToSearch));
  77.   End;
  78. {========================================================================}
  79. Function RCopy(InString : String; StartPosition,EndPosition : Byte) : String;
  80.   Begin
  81.     InString := Copy(InvertString(InString),StartPosition,EndPosition);
  82.     Rcopy := InvertString(InString);
  83.   End;
  84. {========================================================================}
  85. Function HereToSpace(InString : String; Start : Byte) : String;
  86.   Var
  87.     Lbx : Byte;
  88.     Lsx : String;
  89.   Begin
  90.     Lsx := '';
  91.     For Lbx := Start To Length(InString) Do
  92.     Begin
  93.       If InString[Lbx] = ' ' Then Break;
  94.       Lsx := Lsx+InString[Lbx];
  95.     End;
  96.     HereToSpace := Lsx;
  97.   End;
  98. {========================================================================}
  99. Begin
  100. End.
  101. {========================================================================}
  102.