Delphi：如何从接口类型变量访问对象的基类方法

Question

...反之亦然。假设我无法控制两个类，它们都继承自同一个基类：

TDataSet1 = class(TDataSet)
...
end;

TDataSet2 = class(TDataSet)
...
end;

我有一个这样的接口声明：

IMyDataSet = interface
  procedure MyProc;
end;

然后我有两个类继承了之前的类并实现了我的接口：

TMyDataSet1 = class(TDataSet1, IMyDataSet)
  procedure MyProc;
end;

TMyDataSet2 = class(TDataSet2, IMyDataSet)
  procedure MyProc;
end;

现在我的问题是：我有一堆过程和函数，它们必须接受一个对象作为参数，该对象可以是我的两个类的实例。 我不需要访问特定于我的两个类或祖先类的属性或方法，只需要访问基类TDataSet 和在接口IMyDataSet 中声明的那些。

如果我这样声明一个过程：

procedure Foo(ADataSet: TDataSet);

我只能调用来自TDataSet 类的方法。

如果我以这种方式声明过程：

procedure Foo(ADataSet: IMyDataSet);

我只能看到属于该接口的方法。

有什么方法可以让我在传递给程序的引用上看到TDataSet 和IMyDataSet 方法？

Answer 1

您可以将参数声明为接口，然后将其类型转换为方法内的对象引用。 （这种类型转换适用于 Delphi 2010 及更高版本）

procedure Foo(ADataSet: IMyDataSet);
var
  LDataSet: TDataSet;
begin
  LDataSet := TDataSet(ADataSet);
  ... 
end;

注意：如果IMyDataSet 接口未在TDataSet 上实现，则上述类型转换将失败而不会引发异常并返回nil。

您也可以使用as 运算符进行类型转换，但在这种情况下，失败会引发异常。

LDataSet := ADataSet as TDataSet;

---

另一种选择是将参数作为对象实例传递，然后从对象中检索接口。在这种情况下，您的界面必须有 GUID。

IMyDataSet = interface
  ['{XXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}'] // replace with actual GUID
  procedure MyProc;
end;

procedure Foo(ADataSet: TDataSet);
var
  LDataSet: IMyDataSet;
begin
  if Supports(ADataSet, IMyDataSet, LDataSet) then
    begin
      ... 
    end;
end;