• Sábado 21 de Diciembre de 2024, 17:33

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Ayla

Páginas: [1]
1
InterBase/Firebird / Se Ha Liberado Firebird 2.0
« en: Martes 14 de Noviembre de 2006, 11:26 »
Se acaba de anunciar la liberación de la versión 2.0 de Firebird.  


http://www.ibphoenix.com/


Esta nueva versión trae un buen número de nuevas características, incluyendo tablas derivadas, soporte para el Execute Block, tamaño de tablas incrementado, nuevo código mejorado para los índices (el límite de 252 bytes de tamaño ya no es aplicable), índices de expresiones, numerosas mejoras del optimizador, características de seguridad mejoradas, soporte para copias de seguridad incrementales en línea, junto a muchas otras mejoras y correcciones de bugs. En las Release Notes se pueden encontrar mas detalles.

 :comp:

2
Trucos / Colocar El Separador Decimal
« en: Jueves 30 de Junio de 2005, 18:37 »
Muchas veces no sabemos que separación decimal tiene la máquina en que va a correr nuestra aplicación. Con esta función, tenemos solucionado el problema:

Código: Text
  1.  
  2. function fSepDecimal(tecla: char) : char;
  3. begin
  4.   if DECIMALSEPARATOR = ',' then begin
  5.      if tecla = '.' then Result:= ','
  6.      else Result := tecla;
  7.   end
  8.   else begin
  9.      if tecla = ',' then Result:= '.'
  10.      else Result := tecla;
  11.   end;
  12. end;  
  13.  
  14.  

Sólo tenemos que llamar a la función en OnKeyPress de cualquier componente en el que vayamos a utilizar decimales. Por ejemplo, en un TDBEdit:

Código: Text
  1.  
  2. procedure Tform.DBEditKeyPress(Sender: TObject; var Key: Char);
  3. begin
  4.   key := fSepDecimal(key);
  5. end;
  6.  
  7.  

Páginas: [1]