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

Question

对不起，如果这是一个noob问题（但我是德尔福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）可用的​​宏套件和工具来克服这个问题？ （你可以在评论中张贴建议，因为这将是脱离主题在这里要求这样的工具）。

Answer 1

从某种意义上说，德尔福已经做你所要求的。完全省略构造函数和析构函数声明。当一个类派生自另一个类时，它会自动继承基类的构造函数和析构函数，除非你自己。在你的例子中，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中的每个类都将继承自TObject，它已经具有Create/Destroy。

在一个接口中，你应该把这些功能扩展到实现类。

顺便说一句你在Create（）中放置一个Destroy吗？