Como Trocar Ponto por Vírgula no Edit | Delphi

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, '.', ',', []);