paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-13 04:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for bug #4222 by Rodrigo Robles

Browse Source 
git-svn-id: trunk@745 -
This commit is contained in:
michael 2005-07-25 17:11:08 +00:00
parent cf95b53b8f
commit 42f219cfc4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/strutils.pp
View File

@ -1168,7 +1168,10 @@ begin
Count:=WordCount(S, WordDelims); Count:=WordCount(S, WordDelims);
I:=1; I:=1;
While (Not Result) and (I<=Count) do While (Not Result) and (I<=Count) do
begin
Result:=ExtractWord(i,S,WordDelims)=W; Result:=ExtractWord(i,S,WordDelims)=W;
Inc(i);
end;
end; end;