Tirar o quot; . quot; de um numero. exemplo 1.000,00 = 100

Delphi

23/07/2003

Olá

Alguem sabe como eu poderia tirar o ´ . ´ de um numero? o numero esta em uma variavel mas tenho que tirar o ponto! pra passar pra outra variavel.

Obrigado!

Rafael


Raphal

Raphal

Curtidas 0

Respostas

Fer

Fer

23/07/2003

ola ... vc gostaria de tirar apenas o ponto? Estou supondo que a variavel seja currency e vc esteja mandando para uma variavel string ... faça isso

variavelstring:=formatcurr(´#0.00´, variavelCurrency);


GOSTEI 0
Fer

Fer

23/07/2003

ou utilize essa rotina para deletar a virgula
             While pos(´,´,preco) > 0 do
                 Delete(Preco, Pos(´,´, Preco) , 1);


e essapara deletar o ponto
             While pos(´.´,preco) > 0 do
                 Delete(Preco, Pos(´.´, Preco) , 1);


onde preco é sua variavel.
falow


GOSTEI 0
Raphal

Raphal

23/07/2003

Valeu FeR! :)


GOSTEI 0
POSTAR