* Map time fields to ftTime, so that field.asstring does not show the date-part, bug #14901

git-svn-id: trunk@15007 -

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

@@ -458,9 +458,9 @@ begin
         TrLen := SQLLen;
       end;
     SQL_TYPE_DATE :
-      TrType := ftDate{Time};
+      TrType := ftDate;
     SQL_TYPE_TIME :
-        TrType := ftDateTime;
+        TrType := ftTime;
     SQL_TIMESTAMP :
         TrType := ftDateTime;
     SQL_ARRAY :