FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Separador de miles como separador decimal
Hola a todos. Lo que quiero hacer es lo siguiente: en un DBGrid, cuando el usuario está editando un campo numérico, quiero que cuando presiona la tecla "." del teclado númerico, funcione como si hubiera presionado el separador decimal, sin importar cual sea la configuracion regional, tal como lo hace Excel.
Espero puedan ayudarme. Gracias José |
#2
|
||||
|
||||
Hola!
Te podías crear una función que cuando pulsaras una tecla de un campo numérico la llamaras: Código:
function fSepDecimal(tecla: char) : char; begin if DECIMALSEPARATOR = ',' then begin if tecla = '.' then Result:= ',' else Result := tecla; end else begin if tecla = ',' then Result:= '.' else Result := tecla; end; end; Código:
key := fSepDecimal(key); Saludos! |
#3
|
|||
|
|||
Ampliando algo la respuesta de Nuria (muy buena, por cierto)
Código:
if DBGrid1.SelectedField.DataType in [ftFloat, ftCurrency, ftBCD] then key := fSepDecimal(key); |
#4
|
||||
|
||||
Cita:
|
#5
|
||||
|
||||
Cita:
[ftFloat, ftCurrency, ftBCD]
__________________
Enseñar es la virtud de un sabio. |
|
|
|