Mascara de Valores ??

16/12/2003

1

Olá Pessoal !

tenho que ler esse texto e formatar para valores assim

VarTexto: 00000000001397


Quero deixar assim:

VarCurrency := 13,97

Obrigada !

Renata Coimbra


Responder

Posts

16/12/2003

Tnaires

Olá Renata!

Primeiro, vamos retirar os zeros:
Num := ´´;
for i := Length(VarTexto) - 1 to 0 do
  if VarTexto <> 0 then
    Num := Num + VarTexto[i]
  else
    Break;

Esse código armazena em Num a string correspondente ao número sem os zeros.
Agora vamos armazenar o valor:
VarCurrency := StrToFloat(Num) / 100;

Essa linha transforma a string Num em número real e divide seu valor por 100 para deslocar a casa decimal 2 casas à esquerda.
Escrevi esse código agora e por isso não testei. Espero q tenha ajudado...
Muito sucesso a todos nós


Responder

16/12/2003

Tnaires

Há um erro no laço for...
Ao invés de fazer
for i := Length(VarTexto) - 1 to 0
faça
for i := Length(VarTexto) - 1 [u:06acf9bb67]downto[/u:06acf9bb67] 0


Responder