Browse Source

* Use resourcestring for error message

git-svn-id: trunk@15423 -
joost 15 years ago
parent
commit
04773d35b9
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

+ 2 - 1
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

@@ -192,6 +192,7 @@ Resourcestring
   SErrNotversion50 = 'TMySQL50Connection can not work with the installed MySQL client version (%s).';
   SErrNotversion41 = 'TMySQL41Connection can not work with the installed MySQL client version (%s).';
   SErrNotversion40 = 'TMySQL40Connection can not work with the installed MySQL client version (%s).';
+  SErrSettingParameter = 'Error setting parameter "%s"';
 
 Procedure MySQlError(R : PMySQL;Msg: String;Comp : TComponent);
 
@@ -275,7 +276,7 @@ begin
       else
         Opt := pchar(OptStr);
       if mysql_options(HMySQL,AMysql_Option,Opt) <> 0 then
-          MySQlError(HMySQL,'Error setting parameter',Self);
+          MySQlError(HMySQL,Format(SErrSettingParameter,[params.Names[i]]),Self);
       end;
     end;