Dicas

Como Trocar Ponto por Vírgula no Edit | Delphi

App Android | Significado dos NomesSignificado dos Nomes

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

Botão Voltar ao topo

Adblock detectado

Por favor, considere apoiar-nos, desativando o seu bloqueador de anúncios