Ejemplos comparativos de GH Freebrary

[[Al González]]

Aquí podemos encontrar estas tres sentencias de código:

Código Delphi [-]
begin
  ...
  PDFReport1.Filename := GetCurrentDir()+'\prueba.rep';
  PDFReport1.PDFFilename := GetCurrentDir()+'\prueba.pdf';
  ...
  Application.MessageBox(PChar('Listado exportado correctamente:' +
    #13 + #13 + PDFReport1.PDFFilename), 'Exportando', MB_ICONINFORMATION);

Tal vez este no sea el caso, pero suponiendo que lo sea, he notado que suele utilizarse la función GetCurrentDir para formar una ruta de archivo relativa a la del programa ejecutable. Pero eso puede ser engañoso, porque las funciones nativas GetCurrentDir y GetCurrentDirectory no necesariamente devuelven el directorio del programa ejecutable, sino sencillamente el "directorio actual", el cual puede ser cambiado inadvertidamente por algún elemento del programa que trabaje con el sistema de archivos. Para derivar una ruta de la del programa ejecutable tenemos la función ghDirPath.

Por otra parte, casi nunca es cómodo escribir o leer una llamada a la función MessageBox de la API de Windows (o al método de TApplication que lleva el mismo nombre) por lo especial de sus parámetros: Las cadenas no son de tipo String sino PChar, así que con frecuencia se recurre a moldes de tipos "PChar(Cadena)"; además primero debe indicarse el texto interior de la ventana y luego su título, cuando la lógica común de cualquier diseño es indicar primero el título de la ventana y luego su contenido; y finalmente la constantes MB_ICONXXX no son precisamente estéticas, abultan el código y restan legibilidad. ¿Existe una función sencilla de manejar que muestre un simple cuadro de texto con el icono de información? Sí, su nombre es ghInform.

El anterior bloque de código quedaría así:

Código Delphi [-]
Uses
  GHFRTL, GHFVCL;

Begin
  ...
  PDFReport1.Filename := ghDirPath ('prueba.rep');
  PDFReport1.PDFFilename := ghDirPath ('prueba.pdf');
  ...
  ghInform ('Exportando', 'Listado exportado correctamente:'#13#13 +
    PDFReport1.PDFFilename);

Sólo es necesario añadir a la cláusula Uses la unidad GHFRTL (que contiene a ghDirPath) y la unidad GHFVCL (que contiene a ghInform).

[Jose Roman]

Gracias por el aporte, no sabia nada al respecto (me considero un novato avanzado) ojala aporten mas ejemplos que ayudan mucho.

[[AzidRain]]

Yo siempre he usado:

Código Delphi [-]
ExtractFilePath(Application.ExeName);

ya que lo que dice Al es muy cierto GetCurrentDir solo nos devuelve el directorio de trabajo actual y puede haber sido cambiado por la aplicación, la propiedad ExeName por otro lado, contiene todo el path completo del ejecutable se haya ejecutado de donde haya sido (inclusive una memoria USB).

[[Al González]]

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).

[[AzidRain]]

Me quedo con mi solución, es cierto que requieres la unidad Forms, pero esa ya viene por defecto y el objeto Application se crea y regula automáticamente. Si ya viene con muchas otras opciones ¿Por qué no usarlo? Claro a menos que en ninguna parte de nuestro poyecto usemos la unidad citada, pero en todo caso todo se resumen e usar o no una unidad adicional (una de ellas nativa), ya sea "forms" o las de GHFreebrary. Al final en los dos casos se obtiene exactamente lo mismo.

[[Al González]]

Será que me gusta mucho la brevedad del código.

[Casimiro Noteví]

Empezado por Al González

Será que me gusta mucho la brevedad del código.

A mí también.
Cada vez que tengo que usar extractfilepath o alguna función similar me da sensación de obsoleta.