Fórum Em uma String tem como eu diferenciar uma letra de um numero #153794
10/04/2003
0
Tenho a seguinte situação :
Saux : = ´JM1520´;
eu quero eliminar as letras e deixar somente os numeros nesta string
mas nãos ei como diferenciar em uma string letra de numeros para poder apagar somente as letras.
Lembrando que as letras variam podem ocupar 2 ou 1 ou 3 posições na string e as letras tb não são sempre as mesmas elas variam sem ordem fixa.
Ou seja quero varrer a string e apagar tudo o que for letra tem como ?
desde já agradeço obrigado.
Saux : = ´JM1520´;
eu quero eliminar as letras e deixar somente os numeros nesta string
mas nãos ei como diferenciar em uma string letra de numeros para poder apagar somente as letras.
Lembrando que as letras variam podem ocupar 2 ou 1 ou 3 posições na string e as letras tb não são sempre as mesmas elas variam sem ordem fixa.
Ou seja quero varrer a string e apagar tudo o que for letra tem como ?
desde já agradeço obrigado.
Anonymous
Curtir tópico
+ 0
Responder
Posts
10/04/2003
Dilp
tente a seguinte rotina
for i := 0 to lenght(Variavel) do
if not(Copy(Variavel, i, 1) in [´0´..´9´]) then
begin
delete(Variavel, i, 1);
i := i - 1; // i é decrementado porque o comprimento da varialvel
end; // é alterado
for i := 0 to lenght(Variavel) do
if not(Copy(Variavel, i, 1) in [´0´..´9´]) then
begin
delete(Variavel, i, 1);
i := i - 1; // i é decrementado porque o comprimento da varialvel
end; // é alterado
Responder
Gostei + 0
10/04/2003
Aroldo Zanela
http://clubedelphi.videomart.com.br/viewtopic.php?t=8026&highlight=
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)