Générer une erreur de compilation si la propriété n'est pas définie

Question

Je souhaite être capable de créer une erreur/un avertissement du compilateur si une certaine propriété de mon objet n'est pas définie. Disons que j'ai la classe suivante:

interface 

type 
    TBarkevent = procedure (Bark : String) of object; 

    TDog = class 
    private 
    FOnBark : TBarkevent; 
    procedure SetBark(const Value: TBarkevent); 
    function GetBark: TBarkEvent; 
    public 
    procedure Bark; 
    property OnBark : TBarkEvent read GetBark write SetBark; 
    constructor Create; 
    end; 

implementation 

{ TDog } 

procedure TDog.Bark; 
begin 
    if Assigned(OnBark) then 
    OnBark('Woof!') 
end; 

constructor TDog.Create; 
begin 
end; 

function TDog.GetBark: TBarkEvent; 
begin 
    Result := FOnBark; 
end; 

procedure TDog.SetBark(const Value: TBarkevent); 
begin 
    FOnBark := Value; 
end; 

-je utiliser la classe TDog dans une autre unité comme celui-ci:

var 
    Dog : TDog; 
begin 
    Dog := TDog.Create; 
    Dog.OnBark := DogBark; 
    Dog.Bark; 

Maintenant, une fois la procédure Bark() est appelée, l'événement OnBark est déclenché.

Ma question:

moi Est-il possible pour le rendre obligatoire pour spécifier la propriété OnBark, de sorte qu'une erreur du compilateur/avertissement est émis si l'événement est pas défini?

Answer 1

Définissez votre classe:

TDog = class 
private 
    FOnBark : TBarkevent; 
    procedure SetBark(const Value: TBarkevent); 
    function GetBark: TBarkEvent; 
public 
    procedure Bark; 
    property OnBark : TBarkEvent read GetBark write SetBark; 
    constructor Create(Bark : TBarkEvent); 
end; 

De cette façon, vous ne pouvez pas instancier un objet TDog sans spécifier un événement. Si vous essayez, vous obtiendrez une erreur de compilation.

Answer 2

Tout d'abord: Non Il n'est pas possible de vérifier cela lors de la compilation pour une propriété comme celle-ci.

Pour le rendre presque obligatoire pour mettre en œuvre un événement OnBark, vous pouvez l'ajouter en tant que paramètre constructeur, au lieu de le publier comme une lecture/écriture propriété. Ensuite, vous pouvez utiliser Assert() pour le vérifier au moment de l'exécution, lors de l'appel du constructeur si une méthode de rappel valide a été transmise au constructeur.

Pour rendre vraiment obligatoire, vous pouvez déclarer ce qui suit:

TCustomDog = class 
public 
    procedure Bark; virtual; abstract; 
end; 

Ainsi, tout le monde en utilisant TCustomDog classe doit mettre en œuvre la procédure Bark. S'il ne le fait pas, un avertissement du compilateur sera émis.