Здравствуйте. Который раз уже наталкиваюсь на одну и ту же проблему. Особенно часто она возникает, когда сопровождаются две параллельные структуры.
Вот, наконец-то, вычленился простой для понимания пример. Пишу базис для игры, для возможности замены технических средств отображения контролов использую паттерн "мост".
Получается, у меня две параллельные структуры - структура классов контролов, которая развивается по своим законам и структура конкретных реализаций, которая местами схожа, а местами живёт совершенно своей жизнью
Проблема возникает на самом первом этапе:
| Код |
type
TControlImp = class
function Height: Integer; virtual; abstract;
function Width: Integer; virtual; abstract;
end;
TWindowImp = class(TControlImp)
function IsFullScreen: Boolean; virtual; abstract;
end;
TMyControl = class
private
Imp: TControlImp;
public
function Height: Integer; //делегируются из Imp
function Width: Integer; //делегируются из Imp
end;
TMyWindow = class(TMyControl)
// private
// imp: TWindowImp; - хотелось бы что-то подобное. к тому же, TWindowImp - наследник TControlImp
public
function IsFullScreen: Boolean; //делегируется из Imp, но приходится использовать приведение классов
end;
implementation
{ TMyControl }
function TMyControl.Height: Integer;
begin
Result := imp.Height
end;
function TMyControl.Width: Integer;
begin
Result := imp.Width
end;
{ TMyWindow }
function TMyWindow.IsFullScreen: Boolean;
begin
Result := (imp as TWindowImp).IsFullScreen // в исходном варианте приходится всюду приводить
end;
|
можно ли в классе TMyWindow - наследнике от TMyControl под именем imp использовать не TControlImp, а TWindowImp, который, в свою очередь, является наследником TControlImp?
Или без приведения типов тут никак не обойтись?
Вопрос интересует как по Delphi, так и по другим языкам, где как решается подобное?
Или можно структуры классов как-нибудь по-другому определить? |
