Modeado de tipos o variable.

[jplj]

Estoy usando unos componente ActiveX, a los que debo hacer frecuentemente un moldeado para acceder a propiedades o métodos de alguna de las interfaces que implementan.

¿Cómo es más eficiente hacerlo?

Código Delphi [-]

(Componente As InterfaceX).PropiedadX:= 0;
(Componente As InterfaceX).PropiedadY:= 1;
(Componente As InterfaceX).Ejecuta;

Código Delphi [-]

var
   CompIn: InterfaceX;
begin
CompIn:= (Componente As InterfaceX);
CompoIn.PropiedadX:= 0;
CompoIn.PropiedadY:= 1;
CompoIn.Ejecuta;

Saludos
JuanPe.