Forráskód Böngészése

+ Patch from Luiz Americo to map unknown field types to string

git-svn-id: trunk@3187 -
michael 19 éve
szülő
commit
f98b943047
1 módosított fájl, 2 hozzáadás és 1 törlés
  1. 2 1
      fcl/db/sqlite/sqlite3ds.pas

+ 2 - 1
fcl/db/sqlite/sqlite3ds.pas

@@ -166,7 +166,8 @@ begin
      FieldSize:=SizeOf(Word);
    end else
    begin
-     DatabaseError('Field type "'+ColumnStr+'" not recognized',Self);
+     AType:= ftString;
+     FieldSize:=0;
    end;
    FieldDefs.Add(StrPas(sqlite3_column_name(vm,i)), AType, FieldSize, False);
    {$ifdef DEBUG}