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
- Percorre a string, analisando cada caractere.
- Ignora pontos e vírgulas, copiando apenas os números.
- 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!