来自 Delphi 支持的访问冲突异常 ->查询接口

Question

我有以下代码：

  for i := 0 to FControlList.Count - 1 do
      if Supports(IMyControl(FControlList[i]), IMyControlEx) then
      begin
        MyControlEx := IMyControl(FControlList[i]) as IMyControlEx;
        MyControlEx.DoYourMagic(Self, SomeData);
      end;

在应用程序执行期间此代码被多次调用，但在某些特定情况下，它在 Supports() 方法中失败。更具体地说 - 它似乎属于 Supports() 方法中的 QueryInterface() 调用。

我检查了 FControlList 不为零并且 FControlList[i] 不为零，但它仍然发生。

任何想法将不胜感激！

Answer 1

即使FControlList[I] 不是nil，也不意味着它指向有效数据。底层对象实例可能已经被释放。

我还建议删除对 IMyControl 的类型转换。 Supports 可以将对象和接口作为参数，即使它们是nil，并产生所需的结果。

此外，为了代码的方便性和可读性，您可以考虑使用这种调用 supports 的方式：

if Supports(FControlList[i], IMyControlEx, MyControlEx) then
begin
  MyControlEx.DoYourMagic(Self, SomeData);
end;