TThread 中的继承问题，在 D2010 中的工作方式似乎与 D7 不同

Question

在我的应用程序中，我有两个线程对象（Outer 和 Sash），它们继承自 TThread 类型的基本线程对象 (FrameObject)。这在 D7 中一切正常。该应用程序需要扩展，我借此机会将其移至 D2010 - 然而，当我尝试编译 Delphi 时，抱怨 FrameObject Create 方法声明与之前的声明不同。

类类型和构造函数如下所示；

TFrameObject = class(TThread)

constructor TFrameObject.Create(BuildType: TBuildType; OnBatchStep: TBatchNotify; OnThreadComplete: TNotifyTermination);
begin
  inherited Create(True);
  ...
end;


TOuter = class (TFrameObject)

constructor Create(BuildType: TBuildType; OnBatchStep: TBatchNotify;  OnThreadComplete: TNotifyTermination; ExceptionHandler: TExceptionHandler);
begin
  inherited create(BuildType, OnBatchStep, OnThreadComplete);
  fExceptionHandler := ExceptionHandler;
  ...
end;

TSash = class (TFrameObject)
constructor Create(BuildType: TBuildType; OnBatchStep: TBatchNotify;  OnThreadComplete: TNotifyTermination; ExceptionHandler: TExceptionHandler);
begin
  inherited create(BuildType, OnBatchStep, OnThreadComplete);
  fExceptionHandler := ExceptionHandler;
  ...
end;

D2010 代码是 D7 源文件的直接副本，正如我所说，这一切在 D7 中都能正常工作（也许不应该！） - 那么我哪里出错了？

Answer 1

检查在多个单元中声明的类型，其中一个在接口中使用，另一个在实现部分中使用，例如 TFrameObject 声明中的 TBuildType （在接口部分中） ) 将解析为 UnitA.TBuildType 并实现为 UnitB.TBuildType。

Answer 2

我对这里发生的情况的猜测是，实现部分中的 uses 子句声明了 TBuildType、TBatchNotify 或 TNotifyTermination< /code> 这与您声明构造函数的接口部分中使用的不同。

一种快速检查方法是在 TFrameObject.Create 的实现中完全限定这些类型。

Answer 3

根据其他答案，最可能的解释是，实现部分中使用的单元中新引入的类型隐藏了接口部分中使用或声明的同名类型。

但是，与以前的答案不同，由于问题仅发生在 D2010 而不是 D7 中，因此我怀疑 TExceptionHandler 类型的 ExceptionHandler 参数，因为 D2010 包含声明了此名称的类型在 ToolsAPI\IStreams 中。

您可以在实现部分限定名称：

  TFrameObject.Create(... ExceptionHandler: MyUnit.TExpectionHandler)

其中“MyUnit”是包含您希望使用的“真实”TExceptionHandler 的单元的名称。

或者，您可以在接口部分中为类型设置别名，并更改参数列表，以便在该单元的接口和实现中一致使用别名类型：

  interface

   type
     TFrameExceptionHandler = TExceptionHandler;

     TFrameObject = class...
       ...
       constructor Create(... ExceptionHandler: TFrameExceptionHandler);
     end;


  implementation

     constructor TFrameObject.Create(... ExceptionHandler: TFrameExceptionHandler);