cambiar el punto por la coma

rimbener · #6 01-09-2006

Otra forma puede ser ésta:

Código Delphi [-]                                                                                procedure TfmRecibos.ImporteKeyPress(Sender: TObject; var Key: Char);
begin
   if (key = '.') or (key = ',') then
      key := DecimalSeparator
   else
      if not (key in ['0'..'9', #8]) then
         key := #0;
end;

DecimalSeparator es la constante que usa el sistema operativo en la configuración regional, de esta manera al llevar el programa a una computadora con distinta configuración el funciona igual.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Sustituir punto por coma	Carlos Arevalo	Varios	3	13-10-2005 23:19:40
Cero despues de la coma	naker	Varios	5	28-10-2004 13:49:30
xml punto coma	carlomagno	Varios	2	06-09-2004 11:49:35
Coma	Investment	Humor	1	02-07-2003 10:45:07
Como le saco la coma o el punto a un número?	DML	Varios	4	23-06-2003 09:46:03