Ver Mensaje Individual
  #2  
Antiguo 18-07-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

No se si termino de entender lo que buscas. Según entiendo, querés que permanezca fija la ruta a la ubicación del archivo y poder variar el nombre del mismo.

Si es así podrías hacer:
Código Delphi [-]
procedure TFormLoQueSea.ImprimirReporte(const NomArch: string);
begin
  Reporte.LoadFromFile(ExtractFilePath(Application.ExeName)+'Reporte\'+NomArch);
  Reporte.ShowReport;
end;
Usando ExtractFilePath(Application.Exename) no importa si la aplicación se ubica en 'C:\Proyecto', 'D:\Programas\MiApp',..., o lo que sea, siempre que la carpeta 'Reporte' sea hija de la carpeta donde está instalada tu aplicación.

Un ejemplo de llamada:
Código Delphi [-]
procedure TFormLoQueSea.btnImprimir(Sender: TObject);
begin
    ImprimirReporte('Ejemplo.fr3');
end;


Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita