* Fixed IsEmptyStr

git-svn-id: trunk@9775 -

rtl/objpas/strutils.pp

@@ -908,7 +908,7 @@ begin
   Result:=True;
   while Result and (i<=l) do
     begin
-    Result:=Not (S[i] in EmptyChars);
+    Result:=(S[i] in EmptyChars);
     Inc(i);
     end;
 end;