eliminar os zeros a esquerda em uma string, tem como?

Delphi

20/05/2004

Pessoal,

Fiz um bacalhau aqui para eliminar zeros de uma string
a:= elimina_zero(0000533) :: ficaria a = 533

mas e se o a = 0000530 ???
então ficaria a:= 53

este e meu problema, queria eliminar somente os zeros a esquerda
tanto a:= 0000533 = 533 como a:=0000530 = 530

pessoal to ralando aqui mas não to conseguindo

se alguem puder me ajudar eu agradeço


Chas

Chas

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

20/05/2004

Para eliminar zeros a esquerda, vc converte a string para inteiro.

ex:
a:=strtoint(´0000530´); ficará a = 530


GOSTEI 0
Chas

Chas

20/05/2004

Para eliminar zeros a esquerda, vc converte a string para inteiro. ex: a:=strtoint(´0000530´); ficará a = 530


Pô, pq não pensei nisto antes....

valeu :lol: :lol: :lol: :lol: :lol:


GOSTEI 0
POSTAR