Função que retorna os numéricos

Delphi

05/05/2004

Gostaria de saber se existe no delphi uma função que retorne apenas os caracteris numéricos de uma string.

Obrigado desde já.


Manjuneiro

Manjuneiro

Curtidas 0

Respostas

Fórum Vini

Fórum Vini

05/05/2004

Olá,
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;


GOSTEI 0
Blivio

Blivio

05/05/2004

Olá, 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
      [b]Depois:= Antes[cont];[/b]
  Showmessage(Depois);
end;
Espero ter ajudado, Vinicius;


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]


GOSTEI 0
Blivio

Blivio

05/05/2004

Substitua Depois:= Antes[cont]; por [b:6f70a0452b]Depois:= Depois + Antes[cont];[/b:6f70a0452b]


A resposta anterior saiu meio louca.


GOSTEI 0
POSTAR