Фрагмент модуля FICKLEVIEW PAS
type TFickleView = class(TAbstractView) private { Private declarations } fValid: boolean; fNotify: IFrame; // В данной реализации проверки //корректности поддерживается // всего один получатель уведомлений public { Public declarations } procedure AddNotifiee( Notify: IFrame);
override; procedure RemoveNotifiee(Notify: IFrame);
override; function GetValid: boolean; override; procedure SetValid(Value: boolean);
override; end; implementation {$R *.DFM} procedure TFickleView.AddNotifiee(Notify: IFrame);
begin fNotify := Notify; end; // TFickleView.AddNotifiee procedure TFickleView.RemoveNotifiee(Notify: IFrame);
begin fNotify := Nil; end; // TFickleView.RemoveNotifiee function TFickleView.GetValid: boolean; begin Result := fValid; end; // TFickleView.GetValid procedure TFickleView.SetValid(Value: boolean);
begin if Value <>
fValid then begin fValid := Value; if Assigned(fNotify) then fNotify.OnValidChanged(Self, Self);
end; // Value <>
fValid end; // TFickleView.SetValid
