Tema: Ejemplos comparativos de GH Freebrary
Ver Mensaje Individual
  #5  
Antiguo 06-08-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
  
Registrado: may 2003
Posts: 5.614
Reputación: 32
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
 
Código Delphi [-]
  DirPrograma := ExtractFileDir (Application.ExeName);
  ...
  RutaReporte := ExtractFilePath (Application.ExeName) + 'Reporte.pdf';
Alternativa:
Código Delphi [-]
  DirPrograma := ghExeDir;
  ...
  RutaReporte := ghDirPath ('Reporte.pdf');
Además de ser más cortas, las segundas opciones no requieren la existencia del objeto Application (algunos programas prescinden de la unidad Forms).
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas.
Responder Con Cita