Buenas a todos.
Tengo un problemilla con Delphi 2007 para Win32 con ADO.
Me explico: estoy intentando crear un componente derivado de TADOQuery, que haga copia de todos los parámetros antes de asignar los nuevos parámetros. Esto parece relativamente simple:
Código Delphi
[-]
TNewADOQuery = class(TADOQuery)
FcpyParams: TParameters;
public
constructor Create(aOwner: TComponent); override;
procedure SaveParams;
end;
constructor TNewADOQuery.Create(aOwner: TComponent); override;
begin
inherited Create(aOwner);
FcpyParams := TParameters.Create(Self, TParameter);
end;
procedure TNewADOQuery.SaveParams;
begin
FcpyParams.Clear;
FcpyParams.Assign(Parameters); FcpyParams.AssignValues(Parameters);
end;
Pues bien, la instrucción marcada me da una excepción de
"Invalid class typecast" y el problema es que no encuentro una solucion ni veo a qué se puede deber la excepción por ninguna parte.
¿Alguien me puede ayudar?