Class Helper fue creado para permitir extender clases que son definidas como SELEAD.o si no quiere utilizar herencia.
Para simular una herencia múltipla, solamente utilizando interface.
Ejemplo:
Código Delphi
[-]
type
IFoo = interface
procedure Hello;
procedure Walk;
end;
IBar = interface
procedure Hello;
procedure Talk;
end;
ICombo = interface(IFoo, IBar)
procedure ChewBubbleGum;
end;
TMyClass = class(TObject, ICombo)
procedure Hello; procedure Walk;
procedure Talk;
procedure ChewBubbleGum;
end;
var
I: ICombo;
F: IFoo;
X: TMyClass;
begin
X := TMyClass.Create;
F := X;
F.Hello;
F.Walk;
I := X;
I.Hello; IBar(I).Hello; (I as IBar).Hello; I.Walk;
I.Talk;
I.ChewBubbleGum;
end.