Столкнулся с проблемой при приминении паттерна стратегия

← →
basken (2004-04-09 15:57) [0]

Столкнулся с такой проблемой при приминении паттерна стратегия в создании компонента.

Есть абстрактный класс TStrategy и конкретные реализации стратегии TCreateStringStrategy, TDBCreateStringStrategy которые реализуют(каждая реализация по своему) интерфейс класса TStrategy и имеют свои обработчики событий. Так вот вопрос – каким образом можно отобразить в TCreatorStrategyAction обработчики событий конкретной реализации TStrategy, возможно ли это? Со свойствами конкретных реализаций класса TStrategy всё впорядке – отображаються, а вот обработчики событий не видно – можно ли их отобразить(очень надо)? За ранее огромное спасибо.

TCreatorStrategyAction = class(TCustomAction) private FStrategyParams: TStrategy; function GetStrategyType: String; procedure SetStrategyParams(Value: TStrategy); procedure SetStrategyType(const Value: String); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure ExecuteTarget(Target: TObject); override; procedure UpdateTarget(Target: TObject); override; published property StrategyType: String read GetStrategyType write SetStrategyType; property StrategyParams: TStrategy read FStrategyParams write SetStrategyParams; end;

← →
WebErr © (2004-04-09 16:12) [1]

> За ранее

"Заранее" пишется вместе
Что-то я и событий-то не вижу!!!

← →
Fay © (2004-04-09 16:14) [2]

2WebErr
Он и говорит - "обработчики событий не видно"!
8))

← →
WebErr © (2004-04-09 16:19) [3]

Ээй! Там, в лодке!
... private FOnSobytie: TSobytie; ... published: property OnSobytie: TSobytie read FOnSobytie write FOnSobytie; ... end;

← →
WebErr © (2004-04-09 16:20) [4]

Ой, забыл ":))))" в конце :))))

← →
basken (2004-04-09 17:02) [5]

События находяться в конкретных реализациях класаа TStrategy

TCreateStringStrategy = class(TStrategy) .... published property CreateString: TCreateString read FCreateString write FCreateString; property OnCreateObject: TCreateObjectEvent read FOnCreateObject write FOnCreateObject; property OnGetCreateString: TGetCreateString read FOnGetCreateString write FOnGetCreateString; property OnGetParamValue: TGetParamValueEvent read FOnGetParamValue write FOnGetParamValue; end;

← →
basken (2004-04-09 17:03) [6]

События находяться в конкретных реализациях(у каждой свои) класса TStrategy

TCreateStringStrategy = class(TStrategy) .... published property CreateString: TCreateString read FCreateString write FCreateString; property OnCreateObject: TCreateObjectEvent read FOnCreateObject write FOnCreateObject; property OnGetCreateString: TGetCreateString read FOnGetCreateString write FOnGetCreateString; property OnGetParamValue: TGetParamValueEvent read FOnGetParamValue write FOnGetParamValue; end;

← →
WebErr © (2004-04-09 17:18) [7]

Дык пропиши их в наследниках!!!
property OnSobytie: TSobytie;
без read-write директив!!!

← →
Игорь Шевченко © (2004-04-09 17:25) [8]

А где надо отобразить ?

← →
basken (2004-04-09 17:28) [9]

TCreateStringStrategy - єто и есть наследники TStrategy ;-). А нужно что бы в классе TCreatorStrategyAction отображались события конкретной реализации.

Я тебя понял, а вот ты меня - нет! :))))

← →
basken (2004-04-09 18:06) [11]

Дык пропиши их в наследниках!!!
property OnSobytie: TSobytie;
без read-write директив!!!

Круто - от этого они наверное станут более видимые! ;-)

Столкнулся с проблемой при приминении паттерна стратегия Найти похожие ветки