Pontos e Vírgulas

Trocar ponto por vírgula, ou vírgula por ponto, muitas vezes precisamos desse código para o preenchimento de um cadastro.
É 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
********************************************************************

"A vida é para quem topa qualquer parada.
Não para quem pára em qualquer topada." Bob Marley.

[...] Continue Lendo...