From c07559bbd1d8e4437e6bde24859c47e83ae16a1f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 11 Mar 2014 10:48:30 +0000
Subject: [PATCH] * In view of recent bug, use traditional for i:=Low() to High
 instead of for in

git-svn-id: trunk@27090 -
---
 packages/fcl-js/src/jswriter.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-js/src/jswriter.pp b/packages/fcl-js/src/jswriter.pp
index 662492f4cb..a420a52eab 100644
--- a/packages/fcl-js/src/jswriter.pp
+++ b/packages/fcl-js/src/jswriter.pp
@@ -1204,6 +1204,7 @@ end;
 Function TTextWriter.Write(Const Args: Array of const) : Integer;
 
 Var
+  I : Integer;
   V : TVarRec;
   S : String;
   U : UnicodeString;
@@ -1211,8 +1212,9 @@ Var
 
 begin
   Result:=0;
-  For V in Args do
+  For I:=Low(Args) to High(Args) do
     begin
+    V:=Args[i];
     S:='';
     U:='';
     case V.VType of