Event in Interface vorgeben

[Uwe Raabe]

Prinzipiell könntest du den Event auch im Interface ergänzen, dann aber mit entsprechenden Get und Set Routinen. Das macht aber die simple Implementierung über ein Feld zunichte.

Übergib doch den Event als Parameter an ValidateOption.

Delphi-Quellcode:

  IOptionLogic = interface
    ['{3E8091DE-BE13-4C88-9C2B-F0DF96F78AEE}']
    function GetOption : TPanel;
    function GetOptionType : TOptionType;
    function FirmaId : String;
    function UseOnlyOnFirmaId : Boolean;
    procedure ValidateOption(OnValidationError: TOnValidationError);
  end;

In den Klassen kann dann ja sowas stehen:

Delphi-Quellcode:

      procedure ValidateOption; overload;
      procedure ValidateOption(AOnValidationError: TOnValidationError); overload;

...

TStatistikAuswertungOption.ValidateOption(AOnValidationError: TOnValidationError);
var
  saveEvent: TOnValidationError;
begin
  saveEvent := OnValidationError;
  try
    OnValidationError := AOnValidationError;
    ValidateOption;
  finally
    saveEvent := OnValidationError;
  end;
end;

Sinnvollerweise würde man das in einer virtuellen Basis-Klasse implementieren und das parameterlose ValidateOption jeweils überschreiben.