Delphi抽象クラスの実装を避ける

Question

thisの質問では、abstract keywrodを追加して抽象クラスを作成することができます。私はDelphiでプロジェクトを翻訳していますが、抽象クラスの作成が可能です。これはコードです：

type 
TCableSPF = class abstract 
    //code 
end; 

は、これは当然の抽象クラスであり、私はそれを実装するサブクラスの多くを持っています。私はそれがこのようなインスタンスを作成することが可能であることがわかります。私は、仮想および抽象的で、そのメソッドを呼び出すしようとすると

a := TCableSPF.Create; 

私はエラーを取得し、これはOKですが、私はクラスの作成を防ぐことができますか？またはDelphiではデフォルトでこれを許可していますか？助けをありがとう

Answer 1

class abstractはDelphi for .Net日からホールドオーバーです。
理由が不明なため、このキーワードの背後には（現在の）実装はありません。

抽象クラスのインスタンス化を防止する場合は、このキーワードは役に立ちません。代わりに、次の操作を行います。

type 
    TCableSPF = class abstract 
    //code 
strict protected 
    //Define all constructors for an abstract class as protected. 
    constructor Create; virtual; reintroduce; 
end; 

コンストラクタにアクセスすることができ、保護、唯一の子孫オブジェクトとしてすべてのコンストラクタを定義することにより、他のコードは、コンストラクタにアクセスすることはできません。あなたは仮想コンストラクタを再導入するので
は、あなたも使用して、それをインスタンス化することはできません：あなたはコンストラクタoverrideを宣言しないすべき

unit A; 

type 
    TMyAbstractObject = class abstract(TObjectX) 
    strict protected 
    constructor Create; virtual; reintroduce; 
    end; 

... 
unit B; 

    TMyClass = class of TObjectX; 

    AbstractObjectInstance = TMyClass.Create; //Will not work for TMyAbstractObject 

注意を。代わりにvirtual reintroduceを宣言してください（仮想コンストラクタを許可したくない場合はreintroduce）。