FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Obtener carácter de separación decimal
Hola a todos!
Usé la variable DecimalSeparator del truco recomendado en Trucomanía, así como la función que alli se presenta sin resultados, solo me faltó probar el API de Windows GetNumberFormat, pero no se cómo usarlo. Necesito esto pues programé una aplicación en D7 con DBExpress que puede ser usada con máquinas con distintas cofiguraciones, separador punto o bien, coma, y quisiera que tuviera un comportamiento similar al IBExppress: lee el punto del teclado numérico, lo transforma en coma, luego de dar TAB, lo vuelve a transformar en punto. Gracias. SSoft. |
#2
|
|||
|
|||
Resuelto
Cita:
Resolví de la siguiente forma: procedure TwndCampos.FormKeyPress(Sender: TObject; var Key: Char); function SepDec: string; var FormatSettings: TFormatSettings; begin GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FormatSettings); Result := FormatSettings.DecimalSeparator; end; begin //Main inherited; if ActiveControl is TDBEdit then if Key = '.' then Key := SepDec[1]; end; Luego en el evento SetText del campo, cambio la coma por punto!!! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
!! Coversion Binario a Decimal y de Decimal codigo ascii | BuRtOn | Varios | 4 | 14-03-2008 04:13:11 |
Obtener la parte decimal de un campo money | mbelda | MS SQL Server | 4 | 08-02-2008 16:10:21 |
file of, caracter de separación | jonmendi | Varios | 12 | 09-06-2006 17:27:19 |
Obtener la posición de un caracter en una cadena | Javi2 | Varios | 3 | 09-06-2005 09:08:06 |
Obtener parte entera, decimal | repo | Firebird e Interbase | 3 | 07-10-2004 22:10:25 |
|