É necessário atenção. O código é bem simples e fácil.
Trocar o PONTO pela VÍRGULA
No Evento OnKeyPress da Caixa de Texto (TEdit):
procedure TForm1.TEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in [',','.'] then
Key := DecimalSeparator;
end;
Trocar a VÍRGULA pelo PONTO
No Evento OnKeyPress da Caixa de Texto (TEdit):
procedure TForm1.TEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['.',','] then
Key := '.';
end;
********************************************************************
Faça o download do arquivo: Ponto e Virgula.rar
********************************************************************
Faça o download do arquivo: Ponto e Virgula.rar
********************************************************************
"A vida é para quem topa qualquer parada.
Não para quem pára em qualquer topada." Bob Marley.
Não para quem pára em qualquer topada." Bob Marley.