--- Merging r31299 into '.':

U    rtl/objpas/classes/stringl.inc
--- Recording mergeinfo for merge of r31299 into '.':
 U   .

# revisions: 31299

git-svn-id: branches/fixes_3_0@33426 -

rtl/objpas/classes/stringl.inc

@@ -42,13 +42,13 @@ end;
 
 { //!! is used to mark unsupported things. }
 
-Function QuoteString (Const S : String; Quote : String) : String;
+Function QuoteString (Const S : String; Const Quote : String) : String;
 Var
   I,J : Integer;
 begin
   J:=0;
   Result:=S;
-  for i:=1to length(s) do
+  for i:=1 to length(s) do
    begin
      inc(j);
      if S[i]=Quote then