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;

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

1 个答案: