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嗎？