Ver Mensaje Individual
  #3  
Antiguo 07-08-2013
Avatar de Caminante
Caminante Caminante is offline
Miembro
 
Registrado: oct 2010
Ubicación: Lima - Peru
Posts: 338
Reputación: 14
Caminante Va camino a la fama
Hola

Me parece que debes declarar la referencia de clase para TqckrprtPadre

Código Delphi [-]
TqckrprtPadreclass= class of TqckrprtPadre;

y luego

Código Delphi [-]
aReportes: array of TqckrprtPadreclass;

Luego

Código Delphi [-]
for iIndiceI := 0 to Length(aReportes) -1 do
   try
      ElReporte := TqckrprtPadreclass(aReportes[iIndiceI]).Create(nil);
      MessageDlg('Reporte '+ElReporte.Name+' creado y funcionando.', mtInformation, [mbOK], 0);
   finally
      ElReporte.free;
      ElReporte := nil
   end;

Espero que sea util

Saludos

Última edición por Caminante fecha: 07-08-2013 a las 23:39:56.
Responder Con Cita