5

我正在尝试实现一个接口，以将数据集中的记录转换为 Delphi 的预泛型版本中的 Delphi 记录。我目前不喜欢这个界面，因为它总是需要调用 Supports，如果可能的话，我想避免这种调用，并且想知道是否有更好的方法来做我错过的。

到目前为止，我已经定义了一个导航界面和数据检索界面：

IBaseRecordCollection = interface
  procedure First;
  procedure Next;
  function BOF: boolean;
  ... // other dataset nav stuff
end;

IRecARecordCollection = interface
  function GetRec: TRecA;
end;

IRecBRecordCollection = interface
  function GetRec: TRecB;
end;

基本上我有一个具体的基类，它包含一个私有数据集和实现IBaseRecordCollection每个 RecordCollection 接口的具体类，该接口派生自一个抽象类，实现IBaseRecordCollection（由implements属性处理）并实现记录检索例程：

TAbstractTypedRecordCollection = class(TInterfacedObject, IBaseRecordCollection)
private
  FCollection: IBaseRecordCollection;
protected
  property Collection: IBaseRecordCollection read FCollection implements IBaseRecordCollection;
public
  constructor Create(aRecordCollection: IBaseRecordCollection);
end;

TRec1RecordCollection = class(TAbstractTypedRecordCollection, IRecARecordCollection);
public
  function GetRec: TRecA;
end;

现在，要使用它，我不得不有一个返回 aIRecARecordCollection然后搞乱的构建器，Supports我不喜欢它，因为它总是以这种方式使用。

IE

procedure GetMyRecASet;
var
  lRecARecordCollection: IRecARecordCollection;
  lRecordCollection: IBaseRecordCollection;
begin
  lRecARecordCollection := BuildRecACollection;
  if not supports(lRecARecordCollection, IBaseRecordCollection, lRecordCollection) then 
     raise exception.create();
  while not lRecordCollection.EOF do
  begin
    lRecARecordCollection.GetRec.DoStuff;
    lRecordCollection.Next;
  end;
end;

尽管这可行，但我并不热衷于supports通话并将我的 lRecordCollections 和我的 lRecARecordCollections 像这样混合。我原本希望能够做类似的事情：

IBaseRecordCollection = interface
  // DBNav stuff
end;

IRecARecordCollection = interface (IBaseRecordCollection)
  function GetRec: TRecA;
end;

TRec1RecordCollection = class(TInterfacedObject, IRecARecordCollection)
private
  FCollection: IBaseRecordCollection;
protected
  property Collection: IBaseRecordCollection read FCollection implements IBaseRecordCollection;
public
  function GetRec: TRecA;
end;

但不幸的是，Delphi 不够聪明，无法意识到 IRecARecordCollection 的实现IBaseRecordCollection在 Collection 属性implements调用和 TRec1RecordCollection 对象的基础上进行了拆分。

对于实现这一目标的更简洁的方法，还有其他建议吗？

-- 编辑以对@David 的回答做出（更长的）回复，而不是评论中的回复

建议的解决方案：

IBaseRecordCollection = interface ['{C910BD0A-26F4-4682-BC82-605C4C8F9173}']
  function GetRecNo: integer;
  function GetRecCount: integer;
  function GetFieldList: TFieldList;
  function EOF: boolean;
  function BOF: boolean;
  ...
end;

IRec1RecordCollection = interface (IBaseRecordCollection) ['{E12F9F6D-6D57-4C7D-AB87-8DD50D35DCA2}']
  function GetRec: TRec1;
  property Rec: TRec1 read GetRec;
end;

TAbstractTypedRecordCollection = class(TInterfacedObject, IBaseRecordCollection)
private
  FCollection: IBaseRecordCollection;
protected
  property Collection: IBaseRecordCollection read FCollection implements IBaseRecordCollection;
public
  constructor Create(aRecordCollection: IBaseRecordCollection);
end;

TRec1RecordCollection = class(TAbstractTypedRecordCollection, IRec1RecordCollection, IBaseRecordCollection)
private
  function GetRec: TRec1;
public
  property Rec: TRec1 read GetRec;
end;

没有编译。它抱怨TRec1RecordCollection找不到与IBaseRecordCollection. 我还尝试将Collection属性从 Abstract 移动到Rec1RecordCollection并重新声明属性，TRec1RecordCollection结果相同

再深入一点，似乎直接继承类实现IBaseRecordCollection会起作用，但 Delphi 无法通过使用implements.

4

1 回答 1

7

您的代码几乎就在那里。您的代码中的 implements 指令无法编译，因为您只声明您的类实现了派生接口。就目前而言，您的类没有实现 implements 指令所指的接口，即IBaseRecordCollection. 您可能认为这会从继承中推断出来，但事实并非如此。

要解决您的问题，您只需声明TRec1RecordCollection实现两个接口：

type
  TRec1RecordCollection = class(TInterfacedObject, IBaseRecordCollection, 
    IRecARecordCollection)
  ....
  end;

只需做一点小改动，您的代码就会编译通过。

更新

您对问题的编辑对此有所改变。鉴于您原始问题中的代码，我的答案中的代码确实可以编译。但是，添加任何方法IBaseRecordCollection，编译将不会接受它。

编译器应该接受此代码，而它不接受的事实是因为编译器错误。现代版本的 Delphi 将接受您对问题的更新中的代码。

除非您升级编译器，否则您将无法使您的预期设计工作。

于 2013-09-27T16:20:59.347 回答