Fórum Função que retorna os numéricos #230175
05/05/2004
0
Gostaria de saber se existe no delphi uma função que retorne apenas os caracteris numéricos de uma string.
Obrigado desde já.
Obrigado desde já.
Manjuneiro
Curtir tópico
+ 0
Responder
Posts
05/05/2004
Fórum Vini
Olá,
função do Delphi mesmo não existe, mas você pode fazer algo como:
Espero ter ajudado,
Vinicius;
função do Delphi mesmo não existe, mas você pode fazer algo como:
var Antes, Depois: String;
cont: Integer;
begin
Antes:= ´A3B2C1´;
Depois:= ´´;
for cont:= 1 to Length(Antes) do
if (Antes[cont] in [´0´..´9´]) then
Depois:= Antes[cont];
Showmessage(Depois);
end;Espero ter ajudado,
Vinicius;
Responder
Gostei + 0
06/05/2004
Blivio
Olá,
função do Delphi mesmo não existe, mas você pode fazer algo como:
Espero ter ajudado,
Vinicius;
var Antes, Depois: String;
cont: Integer;
begin
Antes:= ´A3B2C1´;
Depois:= ´´;
for cont:= 1 to Length(Antes) do
if (Antes[cont] in [´0´..´9´]) then
[b]Depois:= Antes[cont];[/b]
Showmessage(Depois);
end;Só complementando o código do amigo, substitua Depois:= Antes[cont];[b:18e5bb0aa1][i:18e5bb0aa1] por [i][b]Depois:= Depois + Antes[cont];[/b:18e5bb0aa1][/i:18e5bb0aa1][/i][/b]
Responder
Gostei + 0
06/05/2004
Blivio
Substitua Depois:= Antes[cont]; por [b:6f70a0452b]Depois:= Depois + Antes[cont];[/b:6f70a0452b]
A resposta anterior saiu meio louca.
A resposta anterior saiu meio louca.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)