用火鸟使DBX识别布尔

Question

火鸟常见问题解答如何创建布尔域。也许最有趣的部分是在结尾，它说：

如果在.Net下使用类似于.Net的连接库，则可以重写OleDB提供者的GetSchema方法，因此从查询中获得的DataTables具有原生.Net布尔值。

有什么办法可以用DB Express实现吗？我正在使用来自http://sites.google.com/site/dbxfirebird/的DBX驱动程序，如果能够在我的数据集中而不是在TSmallintField中获得TBooleanField实例，那就太好了。

Answer 1

它由这两个方法处理，每个TDataSet后代都可以覆盖：

function TDataSet.GetFieldClass(FieldType: TFieldType): TFieldClass;
begin
  Result := DefaultFieldClasses[FieldType];
end;

function TDataSet.GetFieldClass(FieldDef: TFieldDef): TFieldClass;
begin
  Result := GetFieldClass(FieldDef.DataType);
end;

-耶伦