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