Question

很抱歉，如果这是一个noob问题（但我是Delphi noob）。

我们假设以下代码

InterfaceUnit.pas

unit InterfaceUnit;

interface

type
    IMyInterface = interface(IInterface)
        procedure DoStuff(withStuff : Stuff);
    end;

    TMyInterfaceHelperClass = class(TInterfacedObject, IMyInterface)
    public
        constructor Create();
        destructor Destroy();
        procedure DoStuff(withStuff : Stuff); virtual; abstract;
    strict protected
        {Have tons of standard ways how to process Stuff}
    end;

implementation
{TMyInterfaceHelperClass}

constructor TMyInterfaceHelperClass.Create();
begin
    inherited Create();
end;

destructor TMyInterfaceHelperClass.Destroy();
begin
    inherited Destroy();
end;

{Have tons of standard ways how to process Stuff implemented here}
end.

ImplementationUnit.pas

unit ImplementationUnit;

interface

uses InterfaceUnit;

type
    TMyInterfaceImplementationClass = class(TMyInterfaceHelperClass)
    public
{*******************************************************************
 * The Question is: ...
 *******************************************************************}
        constructor Create();
        destructor Destroy(); override;
{*******************************************************************}
        procedure DoStuff(withStuff : Stuff); override;
    end;

implementation
{TMyInterfaceImplementationClass}


{*******************************************************************
 * ... Why do I need to write that boilerplate code all the time?
 *******************************************************************}
constructor TMyInterfaceImplementationClass.Create();
begin
    inherited Create();
end;

destructor TMyInterfaceImplementationClass.Destroy();
begin
    inherited Destroy();
end;
{*******************************************************************}

procedure TMyInterfaceImplementationClass.DoStuff(withStuff : Stuff);
begin
     {Combine TMyInterfaceHelperClass to do extraordinary stuff with Stuff}
end;

end.

让我们跳出代码并继续使用纯文本。

由于我来自C ++背景，我想知道为什么编译器不能简单地生成上面提到的样板代码片段？

我是否有特别的理由错过，为什么编译器无法像任何体面的c ++编译器那样生成上述代码？
至于目前的情况，我相信RAD Studio（10）有可用的宏套件和工具来解决这个问题吗？（您可以在评论中发布建议，因为这将是 off-topic 以在此处请求此类工具。）

Answer 1

从某种意义上说，Delphi 已经做了你想要的。只需完全省略构造函数和析构函数声明。当一个类派生自另一个类时，它会自动继承基类的构造函数和析构函数，除非你自己override。在您的示例中，override是多余的，可以删除。

InterfaceUnit.pas

unit InterfaceUnit;

interface

type
  IMyInterface = interface(IInterface)
    procedure DoStuff(withStuff : Stuff);
  end;

  TMyInterfaceHelperClass = class(TInterfacedObject, IMyInterface)
  public
    procedure DoStuff(withStuff : Stuff); virtual; abstract;
  end;

implementation

{TMyInterfaceHelperClass}

end.

ImplementationUnit.pas

unit ImplementationUnit;

interface

uses InterfaceUnit;

type
  TMyInterfaceImplementationClass = class(TMyInterfaceHelperClass)
  public
    procedure DoStuff(withStuff : Stuff); override;
  end;

implementation

{TMyInterfaceImplementationClass}

procedure TMyInterfaceImplementationClass.DoStuff(withStuff : Stuff);
begin
  {Combine TMyInterfaceHelperClass to do extraordinary stuff with Stuff}
end;

end.

Answer 2

接口中声明的所有内容都必须由类实现。在您的情况下，创建/销毁似乎不是必须在界面中。 Delphi中的每个类都将继承自已有Create / Destroy的TObject。

在接口中，您应该放置那些将扩展实现者类的函数。

顺便说一句，你是在一个内部创建Des（）？

Delphi是否为简单的常见操作提供编译器生成的代码？

2 个答案: