Ejemplos comparativos de GH Freebrary

[[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 Notevi]

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.

[[Al González]]

Ocasionalmente necesitamos un valor de fecha y hora expresado en formato ISO, y a veces tomamos ese valor de lo que devuelve la función nativa Now (la fecha y la hora actuales) para darle tal formato con FormatDateTime.

Es decir, es normal y válido usar algo como esto:

Código Delphi [-]
F := FormatDateTime ('yyyy-mm-dd"T"hh:nn:ss', Now);

Pero podemos recurrir a algo más sencillo:

Código Delphi [-]
F := ghISODateTime;

No perdamos de vista que con frecuencia escribimos grupos de sentencias que contienen varias expresiones, a veces unas dentro de otras, en bloques de código fuente que pueden volverse algo complejos aunque se compongan de unas cuantas líneas. Cuando reducimos el tamaño de las expresiones (sin quitarles del todo su expresividad), conseguimos un código fuente más manejable.

[Casimiro Notevi]

Código Delphi [-]
F := ghISODateTime;

Lo bueno, si breve, dos veces bueno