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;

注意：如果未在TDataSet类上实现IMyDataSet接口，则上述类型转换将在不引发异常的情况下失败并返回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;