Função que remove ponto ou virgula de um valor numérico em Delphi
function TiraPontoeVirgula(sTexto:String):String;
var
Temp_01 : string;
Temp_03, conta: Integer;
begin
Conta := 0;
Temp_03 := length(sTexto);
while conta < temp_03 do
begin
Conta := Conta + 1;
Temp_01 := Copy(Stexto,conta,1);
if Temp_01 = ‘.’ then
begin
sTexto := Copy(sTexto,1,(Conta – 1))+ Copy(sTexto,(Conta + 1),(Temp_03 – Conta));
end;
if Temp_01 = ‘,’ then
begin
sTexto := Copy(sTexto,1,(Conta – 1))+ Copy(sTexto,(Conta + 1),(Temp_03 – Conta));
end;
end;
Result := sTexto;
end;
![Realme-11 Supervooc Carga NFC Camera, 67W, 108MP ProLight, Processador Helio G99, 6.4 ", 90Hz Super AMOLED Display, [Estreia Mundial]](https://ae01.alicdn.com/kf/S26902297da0249fc9a37373458840ee6t.jpg)
