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

View File

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