Como Remover Pontos e Vírgulas de um Valor Numérico no Delphi

No Delphi, podemos criar uma função para remover pontos (.) e vírgulas (,) de uma string numérica. Isso é útil ao converter valores formatados para cálculos matemáticos.

Código da Função

A função abaixo percorre a string e remove qualquer ponto ou vírgula, retornando apenas os números restantes:

function RemovePontoeVirgula(const sTexto: string): string;
var
  i: Integer;
  resultado: string;
begin
  resultado := '';
  for i := 1 to Length(sTexto) do
  begin
    if not (sTexto[i] in ['.', ',']) then
      resultado := resultado + sTexto[i];
  end;
  Result := resultado;
end;

Como Usar?

Para utilizar a função e remover pontos e vírgulas de um TEdit, por exemplo:

ShowMessage(RemovePontoeVirgula(Edit1.Text));

Explicação do Código

  1. Percorre a string, analisando cada caractere.
  2. Ignora pontos e vírgulas, copiando apenas os números.
  3. Retorna a string limpa, sem caracteres indesejados.

Exemplo de Entrada e Saída

Entrada Saída
1.234,56 123456
45,67.89 456789
10.000,00 1000000

Conclusão

Essa função é essencial para trabalhar com valores monetários e cálculos numéricos no Delphi. Simples, eficiente e fácil de usar!

Posts Similares