Class Helpers

[[Andreano]]

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;   // bound to IFoo.Hello and IBar.Hello by default
     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;   //  syntax error: ambiguous call (IFoo.Hello and IBar.Hello)
   IBar(I).Hello;   // ok
   (I as IBar).Hello;   // ok
   I.Walk;
   I.Talk;
   I.ChewBubbleGum;
end.