* Fix compilation of sqldbtoolsunit

git-svn-id: trunk@20400 -

packages/fcl-db/tests/sqldbtoolsunit.pas

@@ -200,8 +200,7 @@ begin
     HostName := dbhostname;
     if length(dbQuoteChars)>1 then
       begin
-      FieldNameQuoteChars[0] := dbQuoteChars[1];
-      FieldNameQuoteChars[1] := dbQuoteChars[2];
+        FieldNameQuoteChars:=dbquotechars;
       end;
     Open;
     end;