Hola,
Gracias por responder
JOSEPE. Es curioso, porque, el código de Delphi 10 no es el mismo que en Delphi XE2 (que se supone todavía es erróneo) pero también es distinto a la solución propuesta en el artículo enlazado:
Cita:
Empezado por Código en Vcl.OleCtrls.pas de Delphi XE2
Código Delphi [-]
function TOleControl.GetIDispatchProp(Index: Integer): IDispatch;
var
Temp: TVarData;
begin
GetProperty(Index, Temp);
Result := IDispatch(Temp.VDispatch);
end;
|
Cita:
Empezado por Solución propuesta en el artículo enlazado
Código Delphi [-]
function TOleControl.GetIDispatchProp(Index: Integer): IDispatch;
var
Temp: TVarData;
begin
GetProperty(Index, Temp);
Pointer(Result) := Temp.VDispatch;
end;
|
¿Alguien se anima con otra versión de Delphi? ¿Y qué hay de la diferencia entre el código propuesto como solución en el artículo y el código que el compañero muestra y se encuentra en Delphi 10?
Gracias de nuevo a todos.