[Synedit-checkins] SynEdit/Source SynEditMiscProcs.pas, 1.35.4.6, 1.35.4.7

[Flávio E. <et...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29143

Modified Files:
      Tag: UtterUnstable
	SynEditMiscProcs.pas 
Log Message:
Fix range error in StringIsBlank when the string is empty (zero-length). Doh.

Index: SynEditMiscProcs.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEditMiscProcs.pas,v
retrieving revision 1.35.4.6
retrieving revision 1.35.4.7
diff -u -d -r1.35.4.6 -r1.35.4.7
--- SynEditMiscProcs.pas	27 Jan 2007 06:19:37 -0000	1.35.4.6
+++ SynEditMiscProcs.pas	23 May 2007 14:01:51 -0000	1.35.4.7
@@ -731,12 +731,15 @@
 var
   i: Integer;
 begin
-  for i := Length(S) downto 0 do
+  if S <> '' then
   begin
-    if not (S[I] in [#32, #9]) then
+    for i := Length(S) downto 0 do
     begin
-      Result := False;
-      Exit;
+      if not (S[I] in [#32, #9]) then
+      begin
+        Result := False;
+        Exit;
+      end;
     end;
   end;
   Result := True;