WordGet fix

This commit is contained in:
mysticbbs 2013-03-04 23:49:12 -05:00
parent ac44ec1396
commit 56e6441ec0

View file

@ -273,7 +273,8 @@ Begin
Count := 1;
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
Start := Pos(Ch, Temp);