* Set Datasize for the unrecognized field types

git-svn-id: trunk@15503 -

packages/fcl-db/src/sqlite/sqlite3ds.pas

@@ -227,11 +227,15 @@ begin
         SQLITE_FLOAT:
           AType := ftFloat;
       else
-        AType := ftString;
+	    begin
+          AType := ftString;
+		  DataSize := DefaultStringSize;
+		end;  		
       end;
     end else
     begin
       AType := ftString;
+	  DataSize := DefaultStringSize;
     end;
     FieldDefs.Add(String(sqlite3_column_name(vm, i)), AType, DataSize);
     //Set the pchar2sql function