delphi - 如何将 TFDDataset 转换为 TADODataset？

Question

首先，请不要问我为什么需要这样做。除非您能告诉我如何将 TFDDataset 直接转换为 _RecordSet，否则请不要问。 :-)

所以，这是我的问题:

给定一个 TFDDataset，如何将该数据集转换为 TADODataset？

TFDDataMove 组件只会移动到 FireDac 数据集，而不是其他任何数据集。

您会推荐什么策略？蛮力(迭代字段和记录......)是我唯一能想到的，但也许我错过了一些更简单或更好的方法。

谢谢。

Answer 1

好的，我将其移植到 Delphi XE4，并开始添加书签支持，以便您可以将其与 TADODataSet Hook 并使用 TDataSource 和数据感知控件。如果您在切换到 ADO 数据集后立即导航到最后一条记录，某处似乎仍然存在一个小错误，导致 dbgrid 引发“网格索引超出范围”错误。无论如何，这就是我所拥有的。

圣诞快乐，尼克!

ADORecordSet.pas

测试项目: Project1.dpr , Unit1.pas , Unit1.dfm