* patch from Lacak2, use dbconst for errormessage, mantis #0018161

git-svn-id: trunk@16602 -

packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -121,7 +121,7 @@ type
 implementation
 
 uses
-  strutils, typinfo;
+  strutils;
 
 type
   TTm = packed record
@@ -954,7 +954,7 @@ begin
         else
           begin
             result := false;
-            databaseerror('Field type '+getenumname(typeinfo(tfieldtype),ord(FieldDef.DataType))+' not supported.');
+            databaseerrorfmt(SUnsupportedFieldType, [Fieldtypenames[FieldDef.DataType], Self]);
           end
       end;  { case }
       end; { if/else }