Filtrando caracteres (ponto decimal)

Delphi

22/09/2005

caros amigos do clube, alguem saberia como eu posso filtrar caracteres em um Edit, para que todos os caracteres que estejam antes do ponto decimal(inclusive o ponto), sejam removidos ficando apenas os caracteres após o ponto decimal....?

Exemplo:


 edit1.text := ´10.321´;  //antes de aplicar o filtro
 edit1.text := ´321´;      // após aplicar o filtro


Abraços!


Mahdak

Mahdak

Curtidas 0

Respostas

Rjun

Rjun

22/09/2005

Leia o numero na ordem inversa até achar o ponto decimal. Depois e so pegar a string do ponto decimal até o final.


GOSTEI 0
Mahdak

Mahdak

22/09/2005

Leia o numero na ordem inversa até achar o ponto decimal. Depois e so pegar a string do ponto decimal até o final.


Rjun, nao teria como dar um exemplo?
[]´s


GOSTEI 0
Rjun

Rjun

22/09/2005

function RetornaDecimal(Valor: string): string
var
  PosicaoPonto: integer;
begin
  PosicaoPonto := Length(Valor);

  while (Valor[PosicaoPonto] <> ´.´) and (PosicaoPonto >= 1) do
    dec(PosicaoPonto);

  result := Copy(Valor, PosicaoPonto + 1, Length(Valor) + PosicaoPonto));
end;



GOSTEI 0
Mahdak

Mahdak

22/09/2005

meu irmão, valleu! deu certinho aqui...

Abraços!


GOSTEI 0
POSTAR