Programação

Como Trocar Ponto por Vírgula no Edit – Delphi

Curta Nossa Página

Trocando Ponto por Vírgula no Edit com Delphi

Para permitir que seja inserido apenas vírgula como casa decimal no Edit com Delphi, basta inserir no evento OnKeyPress do Edit o código abaixo:

// Usa apenas vírgula como casa decimal
if key in [',','.'] then
key := DecimalSeparator;

Com isso, toda vez que for digitado o ponto ( . ) será trocado pela vírgula ( , ).

Caso precise de uma função que troque ponto por vírgula, basta inserir no evento OnExit do Edit o código abaixo:

// Troca ponto por vírgula
Edit.Text := StringReplace(Edit.Text, '.', ',', []);

Etiquetas
Botão Voltar ao topo