Vamos a ver si entiendo porque tratándose de QuickReport soy más slow que quick pero da la impresión de que
el fondo del problema no está relacionado con QuickReport.
Supongo que QuickReprecibo, QuickRepFactura, QuickRepOrden, etc. son objetos de tipo TQuickRep.
Lo que tú quieres es- corrígeme si me equivoco -
Cita:
|
A partir del nombre de un objeto ejecutar de manera genérica un método del objeto.
|
Y quieres- o no estarías preguntando -evitar el uso de los múltiples condicionales- sabia decisión para no tener que estar modificando esta parte del código cada vez que agregues un nuevo reporte.
Lo único que necesitas es una forma de
asociar un objeto con su nombre.
Un TStringList hace justamente esto usando su propiedad Objects que te permite asociar a cada entrada de la lista un objeto:
Código Delphi
[-]
var
Reportes: TStringList;
...
Reportes.AddObject('QuickReprecibo', QuickReprecibo);
...
I := Reportes.IndexOf('QuickReprecibo');
if I <> -1 then
begin
xreporte := Reportes.Objects[i];
xreporte.Preview;
end;
El punto es que tengas la lista Reportes lista antes de que requieras acceder a los reportes. Muy posiblemente Reportes será una variable global que pueda accederse desde cualquier unidad que defina un reporte. En cada unidad de reporte puedes, en su sección
initialization, crear el objeto y agregarlo a la lista Reportes.
Algo similar puedes hacer para los formularios manteniendo un TStringList para ellos.
// Saludos