Fórum Filtrando caracteres (ponto decimal) #296724

22/09/2005

0

Delphi

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

Responder

Posts

22/09/2005

Rjun

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


Responder

Gostei + 0

22/09/2005

Mahdak

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


Responder

Gostei + 0

22/09/2005

Rjun 

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;



Responder

Gostei + 0

22/09/2005

Mahdak

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

Abraços!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar