Como cambiar "." por "," !!!

[[newtron]]

Empezado por Casimiro Notevi

Desde luego, aunque la pregunta de negrokau fuese hacer el cambio al presionar la tecla '.', creo que casi todos tenemos alguna función del tipo: CambiarPuntoPorComa, CambiarComaPorPunto, etc.

"Pos" yo no .

Yo lo que hago es, como apunta el amigo Chris, ajustar la configuración regional a mi gusto al abrir el programa y problema resuelto, igual no es la solución más técnica pero es simple y efectiva.

Saludos

[olbeup]

Me sumo a Casimiro Notevi y aparte se comprueba si ya existe la coma, si es un edit que utilice número decimales.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // Comprobar si se ha pulsado un "." y cambiarlo por ","
  if (Key = #46) then
    Key := #44;

  // Ésta comprobación es para números decimales.
  // Comprobar si ya existe la "," y ponerlo en nulo.
  if (Pos(Key, Edit1.Text) > 0) then
    Key := #0;

  ...
  ...
end;

Un saludo.

[[newtron]]

Empezado por olbeup

Me sumo a Casimiro Notevi y aparte se comprueba si ya existe la coma, si es un edit que utilice número decimales.

Vale, ¿y haces eso en todos los edits numéricos?

[olbeup]

Empezado por newtron

Vale, ¿y haces eso en todos los edits numéricos?

Si, en cada uno de los Edit que tenga que introducir números con decimales.

Un Saludo.

[[newtron]]

Empezado por olbeup

Si, en cada uno de los Edit que tenga que introducir números con decimales.

Eso tiene mucha faena. ¿Por qué no te haces o pillas algún edit "tuneado" que te permita elegir el tipo de campo que estás introduciendo y que lo controle el componente?, eso simplifica mucho las cosas.

Saludos

[olbeup]

Empezado por newtron

Eso tiene mucha faena. ¿Por qué no te haces o pillas algún edit "tuneado" que te permita elegir el tipo de campo que estás introduciendo y que lo controle el componente?, eso simplifica mucho las cosas.

Saludos

La verdad seria perfecto, pero hasta hoy, cada formulario lleva su KeyPress y según para que se utilize, (Número, Número con decimales, Letras y Número, etc..), lleva trabajo, pues un h...vo.

Ya lo estoy reduciendo bastante, pero bastante.

Antes utilizaba componentes de terceros desde la versión 3.0 y al pasar a la versión 5.0 ya no valian por incompatibilidad y te dejaban tirado, desde ese momento, aprendi a no utilizar componentes de terceros y sólo los que traia el propio delphi, me las ingeniaba para salir adelante

Soy chapada a la antigua, yo me lo guiso yo me lo como.

Un saludo.

[[newtron]]

Empezado por olbeup

Soy chapada a la antigua, yo me lo guiso yo me lo como.

uis... no sabía que eras una señorita.

Pues píllate algún componente para edits tuneado mujer, que seguro que encuentras alguno con su fuente, te ahorrará bastante trabajo. Si no encuentras ninguno que te mole me lo dices y yo te paso el mío con los fuentes por si quieres retocar algo.

Saludos

[Casimiro Noteví]

Empezado por newtron

Vale, ¿y haces eso en todos los edits numéricos?

No, en mi caso es sólo en el keypress del formulario, si el 'sender' es un tipo de campo entonces se cambia.
Controlarlo en cada edit sería una barbaridad.

[[newtron]]

Empezado por Casimiro Notevi

No, en mi caso es sólo en el keypress del formulario, si el 'sender' es un tipo de campo entonces se cambia.
Controlarlo en cada edit sería una barbaridad.

Vale, pues te pregunto lo mismo que al amigo olbeup, ¿no es más fácil prepararse un edit "tuneado" para estas cosas?

[Casimiro Noteví]

Empezado por newtron

Vale, pues te pregunto lo mismo que al amigo olbeup, ¿no es más fácil prepararse un edit "tuneado" para estas cosas?

Por supuesto que sí. Lo que he explicado antes es pensando en la pregunta inicial que abrió este hilo.
Es preferible usar un componente edit que permita controlar directamente lo que se teclea.

[[newtron]]

Empezado por Casimiro Notevi

Por supuesto que sí. Lo que he explicado antes es pensando en la pregunta inicial que abrió este hilo.
Es preferible usar un componente edit que permita controlar directamente lo que se teclea.

ok ok ok ok

(iba a poner solo dos ok pero esto no me deja, no soy tan pesado )