paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* In view of recent bug, use traditional for i:=Low() to High instead of for in

Browse Source 
git-svn-id: trunk@27090 -
This commit is contained in:
michael 2014-03-11 10:48:30 +00:00
parent 742c590a3a
commit c07559bbd1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-js/src/jswriter.pp
View File

@ -1204,6 +1204,7 @@ end;
Function TTextWriter.Write(Const Args: Array of const) : Integer; Function TTextWriter.Write(Const Args: Array of const) : Integer;
Var Var
I : Integer;
V : TVarRec; V : TVarRec;
S : String; S : String;
U : UnicodeString; U : UnicodeString;
@ -1211,8 +1212,9 @@ Var
begin begin
Result:=0; Result:=0;
For V in Args do For I:=Low(Args) to High(Args) do
begin begin
V:=Args[i];
S:=''; S:='';
U:=''; U:='';
case V.VType of case V.VType of