Quellcode durchsuchen

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

git-svn-id: trunk@3187 -
michael vor 19 Jahren
Ursprung
Commit
f98b943047
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  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}