Hola a todos:
Quería saber si hay alguna manera de que cuando al cargar un número y presiono el punto salga en pantalla la coma decimal como en Excel.
Desde ya muchas gracias.
Punto que muestre coma decimal
Comenzado por
golf20092
, abr 15 2009 05:15
3 respuestas en este tema
#1
Escrito 15 abril 2009 - 05:15
#2
Escrito 15 abril 2009 - 08:58
Hola a todos:
Quería saber si hay alguna manera de que cuando al cargar un número y presiono el punto salga en pantalla la coma decimal como en Excel.
Desde ya muchas gracias.
Hola
delphi
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case key of '.' : key := ','; ',' : key := '.'; // de una vez el separados de miles :) end; end;
Solo debes tener en cuenta que al pasar el dato como decimal y quieras trabajar con ese número tu configuración regional esté bien configurada.
Salud OS
#3
Escrito 15 abril 2009 - 09:03
Hola golf20092,
Tu pregunta va hacia como enfocar dicha funcionalidad desde el sistema o lo dices como hacerlo en el motor de base de datos?
Esto te lo pregunto porque me resulta extraña tu pregunta al encontrarse en el foro de MySQL, cuanto tu pregunta tiene más sentido en el aspecto del sistema.
Te pediría que por favor nos aclares bien el panorama. Sobre todo que nos indiques que controles o componentes usas.
Por ejemplo, si haces usos de TEdit o TDBEdit puedes aprovechar el evento OnKeyPress y sustituir el caracter, algo así:
Por ello cuando más nos puedas comentar más fácil será para nosotros.
Saludos,
Tu pregunta va hacia como enfocar dicha funcionalidad desde el sistema o lo dices como hacerlo en el motor de base de datos?
Esto te lo pregunto porque me resulta extraña tu pregunta al encontrarse en el foro de MySQL, cuanto tu pregunta tiene más sentido en el aspecto del sistema.
Te pediría que por favor nos aclares bien el panorama. Sobre todo que nos indiques que controles o componentes usas.
Por ejemplo, si haces usos de TEdit o TDBEdit puedes aprovechar el evento OnKeyPress y sustituir el caracter, algo así:
delphi
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = '.' then Key := ','; end;
Por ello cuando más nos puedas comentar más fácil será para nosotros.
Saludos,
#4
Escrito 15 abril 2009 - 09:17
Por lo pronto movemos este hilo a General.
Gracias amigo Delphius por la nota
Salud OS
Gracias amigo Delphius por la nota
Salud OS