Ejemplos comparativos de GH Freebrary

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

[[Al González]]

En esta página se propone una solución que conlleva cierta cantidad de código, dentro del cual se presenta esta función:

Código Delphi [-]
  function GetTagValue(const ATag: String): String;
  var
    p: Integer;
  begin
    p := pos('=', ATag);

    if p = 0 then
      Result := ''
    else
      Result := copy(ATag, p + 1, MaxInt);
  end;

Como puede verse, si la cadena dada contiene el símbolo "=", la función devolverá la subcadena que forman todos los caracteres que estén a la derecha de ese símbolo. Y de no incluir el símbolo de igualdad, entonces devolverá cadena vacía.

Observen cómo el código de dicha función puede reducirse a una sola sentencia si ponemos GHFRTL en el Uses:

Código Delphi [-]
  Function GetTagValue (Const ATag :String) :String;
  Begin
    Result := ghRightOf (ATag, '=');
  End;

La nueva GetTagValue hará exactamente el mismo trabajo, pero con menos esfuerzo por parte de quien escribe la función y sobre todo de quienes luego la lean.

Obtener lo que una cadena lleva a la derecha de un carácter específico es algo tan común, que justificó la existencia de la función ghRightOf.

Este hilo, como los demás, está abierto a cualquier duda o inquietud que deseen expresar.

Saludos.

[[Al González]]

Con la función ghEnable, de la unidad GHFUtils, podemos habilitar o inhabilitar un grupo de controles (componentes visuales), sin tener que escribir una instrucción "Control.Enabled := ..." por cada uno.

Tomo como ejemplo este caso, donde el código que se propone es esencialmente:

Código Delphi [-]
Procedure ...
Var
  B :Boolean;
Begin
  B := qry_edo_habestatus.value = 'DES';
  BTN1.Enabled := B;
  BTN2.Enabled := Not B;
  BTN3.Enabled := Not B;
  BTN4.Enabled := Not B;
  BTN5.Enabled := Not B;
  BTN6.Enabled := Not B;
End;

Usando GHF, podría reducirse a:

Código Delphi [-]
Procedure ...
Begin
  BTN1.Enabled := qry_edo_habestatus.value = 'DES';
  ghEnable ([BTN2, BTN3, BTN4, BTN5, BTN6], Not BTN1.Enabled);
End;

Como puede apreciarse, pasamos de siete a sólo dos instrucciones y nos ahorramos la variable de tipo Boolean. Así pues, escribimos menos código sin restarle demasiada comprensibilidad. Además, cuando se tenga la necesidad de agregar otro botón al grupo, tan sólo habremos de añadir una coma, un espacio y el nombre del botón, por ejemplo ", BTN7", en lugar de una sentencia completa "BNT7.Enabled := ...".

El uso de estas simplificaciones de código permite generar programas más concisos, y también más manejables a través del tiempo: No es lo mismo comenzar a modificar una unidad de 700 líneas de código que no habíamos abierto en cinco años, que hacer lo mismo con una unidad de 250 líneas. El código repetitivo puede ser un obstáculo importante a la hora de dar mantenimiento a los sistemas.

Saludos cordiales.