* Fixed stringreplace in EscapeSQL

git-svn-id: trunk@28452 -

tests/utils/dbtests.pp

@@ -201,7 +201,7 @@ Function EscapeSQL( S : String) : String;
 
 begin
 //  Result:=StringReplace(S,'\','\\',[rfReplaceAll]);
-  Result:=StringReplace(Result,'''','''''',[rfReplaceAll]);
+  Result:=StringReplace(S,'''','''''',[rfReplaceAll]);
   Verbose(V_SQL,'EscapeSQL : "'+S+'" -> "'+Result+'"');
 end;