eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WordGet fix

This commit is contained in:
mysticbbs 2013-03-04 23:49:12 -05:00
parent ac44ec1396
commit 56e6441ec0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mdl/m_strings.pas
View File

@ -273,7 +273,8 @@ Begin
Count := 1; Count := 1;
Temp := Str; Temp := Str;
While Pos(Ch, Temp) = 1 Do Delete (Temp, 1, 1); If Ch = ' ' Then
While Pos(Ch, Temp) = 1 Do Delete (Temp, 1, 1);
While Count < Num Do Begin While Count < Num Do Begin
Start := Pos(Ch, Temp); Start := Pos(Ch, Temp);