From 774978a687d2c8cd2a4433b6565ae36e0b05c29e Mon Sep 17 00:00:00 2001 From: michael Date: Tue, 18 Jan 2011 09:31:49 +0000 Subject: [PATCH] * Minor code cleanup suggested by LacaK git-svn-id: trunk@16776 - --- packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp index 2f0de1da2f..12e1700e82 100644 --- a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp +++ b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp @@ -99,7 +99,7 @@ Var implementation uses - dbconst, sysutils, typinfo, dateutils; + dbconst, sysutils, dateutils; type @@ -190,7 +190,7 @@ begin checkerror(sqlite3_bind_blob(fstatement,I,pcharstr(str1), length(str1),@freebindstring)); end; else - databaseerror('Parameter type '+getenumname(typeinfo(tfieldtype),ord(P.datatype))+' not supported.'); + DatabaseErrorFmt(SUnsupportedParameter, [Fieldtypenames[P.DataType], Self]); end; { Case } end; end;