Buen día/tarde/noche según aplique, jóvenes.
A ver si ustedes ven el problema donde yo no lo encuentro. Tengo el siguiente código:
Código Delphi
[-]procedure TformReporteadorV2.ImprimeExportaSIS;
var
ElReporte : TqckrprtPadre;
wsNombreArchivo : WideString;
iIndiceI: Integer;
aReportes: array of TqckrprtPadre;
begin
SetLength(aReportes,6);
aReportes[00] := TqrpSIS_SS_PSQ_001;
aReportes[01] := TqrpSIS_SS_PSQ_012;
aReportes[02] := TqrpSIS_SS_PSQ_128;
aReportes[03] := TqrpSIS_SS_PSQ_129;
aReportes[04] := TqrpSIS_SS_PSQ_130;
aReportes[05] := TqrpSIS_SS_PSQ_131;
for iIndiceI := 0 to Length(aReportes) do
try
ElReporte := (aReportes[iIndiceI] as TqckrprtPadre).Create(Self);
MessageDlg('Reporte '+ElReporte.Name+' creado y funcionando.', mtInformation, [mbOK], 0);
finally
ElReporte := nil;
end;
end;
en el cual intento tomar el reporte que corresponda de acuerdo a un índice que apunta a un elemento de un arreglo, pero aparentemente estoy haciendo algo que no debo por que me manda éste error:
[Error] uformReporteadorV2.pas(5364): Incompatible types: 'TqckrprtPadre' and 'Class reference'
Agradeciendo de antemano. ¿Alguna idea que puedan darme para solucionar ésto?