Ejemplos comparativos de GH Freebrary

[jhonny]

Una función muy útil, muchas veces uno necesita algo así y no se detiene a pensar que podría ayudarle, gracias Al .

[Casimiro Notevi]

Una duda, curiosidad: ¿por qué el espacio en blanco tras la coma?

[[Al González]]

Empezado por jhonny

Una función muy útil, muchas veces uno necesita algo así y no se detiene a pensar que podría ayudarle, gracias Al .

Un placer Jhonny, gracias.

Empezado por Casimiro Notevi

Una duda, curiosidad: ¿por qué el espacio en blanco tras la coma?

Hola Casi, es sólo una cuestión de estilo, para mayor legibilidad.

[[Al González]]

Quienes han usado directamente la API de Windows tendrán muy presente que esta no suele elevar excepciones al ocurrir una situación de error. En lugar de eso, la API de Windows establece un código de error numérico que podemos recuperar con la función GetLastError. A veces es necesario convertir este código de error a algo que sea relativamente comprensible para el usuario de la aplicación (aunque más útil para el programador que recibirá el reporte del usuario), y para ello Delphi cuenta con la función SysErrorMessage, la cual envuelve a la función FormatMessage del sistema operativo.

También es común que, una vez obtenido el texto del error, queramos elevar una excepción Delphi con él. Así ocurre por ejemplo en este caso:

Código Delphi [-]
else
  raise Exception.Create(SysErrorMessage(GetLastError));

Con GHF, para obtener el texto del error, podemos usar la función ghLastErrorMsg:

Código Delphi [-]
else
  raise Exception.Create (ghLastErrorMsg);

Pero podemos simplificar un poco más toda la sentencia usando la función ghRaiseLastError:

Código Delphi [-]
else
  ghRaiseLastError;

Internamente, esta función llama a ghLastErrorMsg y eleva una excepción con el texto del error. Además, ghRaiseLastError admite un parámetro opcional de tipo String para indicar el formato a dar al mensaje de error. Si no se especifica el formato, se utiliza el predeterminado '%s (GetLastError %d).', viéndose el mensaje de excepción como en este ejemplo:



El formato se aplica con la función estándar Format que todos conocemos. "%s" indica en qué parte del mensaje de excepción debe ghRaiseLastError poner el texto del error devuelto por ghLastErrorMsg. "%d" significa que en esa posición debe aparecer el código de error numérico que arrojó GetLastError. Cualquiera de los dos comodines puede ser omitido, por lo que el formato de la excepción es totalmente flexible. Sólo considerar que en la llamada interna a Format, el texto del error es el primer parámetro y el código numérico el segundo. Otro ejemplo:

Código Delphi [-]
ghRaiseLastError ('No fue posible realizar la operación.'#13#10 +
  'Error interno %1:d (%0:s).');

Resultado:



Posteriormente agregaré la documentación detallada de estas dos funciones al manual de referencia.

Un saludo.

Al González.

[[Al González]]

Me alegra saber que en el club hay compañeros que sí aprecian y valoran de buena fe los ejemplos que he venido escribiendo sobre el uso de GH Freebrary.

Pongamos uno más, simplificando ligeramente este código del compañero wilcg:

Código Delphi [-]
Uses
  GHFRTL;
...
  with Query do
  begin
    SQL.Clear;
    SQL.Add ('Select * from pagos');
    SQL.Add ('where codventa = ' + QuotedStr (edtCodigo.Text));
    SQL.Add ('and f_venta = ' + ghQuotedSQLDate (edtFVdenta.Date)) ;
    SQL.Add ('and f_pago between ');
    SQL.Add (ghQuotedSQLDate (edtDesde.Date));
    SQL.Add ('and '+ ghQuotedSQLDate (Date));
    SQL.Add ('Order By f_pago desc');
    Open;
  end;

La función ghQuotedSQLDate convierte un valor de tipo fecha en su representación literal SQL, es decir, bajo el formato universal aaaa-mm-dd y con una comilla a cada lado. La fecha de hoy, por ejemplo, queda como '2014-08-22' lo cual permite añadirla a cualquier sentencia SQL como el Select del ejemplo. Sin el potencial problema de la configuración regional del sistema operativo o del motor de la base de datos.

[TiammatMX]

Empezado por Al González

... Sin el potencial problema de la configuración regional del sistema operativo o del motor de la base de datos...

Hace un año, ésta función me habría salvado de dos desveladas seguidas peléandome con MSSQLServer y su "bendita" manera de pedir la fecha... ¬¬

¡¡Gracias, compadre!!

[pacopenin]

. Tengo que dedicarle algo de tiempo, pero a veces somos tan cabezotas....