3 replies to this topic

[golf20092]

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.

[egostar]

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

[Delphius]

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í­:

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,

[egostar]

Por lo pronto movemos este hilo a General.

Gracias amigo Delphius por la nota

Salud OS