Retirar Todas as letras

[orc 0]

gostaria de saber se alguem tem alguma função que retira as letras de uma string e deixa somente os numeros ??

[Rodrigo Miss 1]

Montei uma funcao aki, mais naum deu tempo de testar ...

Veja aew no que q da, e da um toque ... abraços

 

function PegarNumeros(const S: String): String;var   x: Integer;   Str: String;begin   Str:= '';   For x:= 1 to Length(S) do   begin	  If (S[x] In['0'..'9']) then	  begin		 Str:= Str + S[x];	  end;   end;   PegarNumeros:= Str;end;

[orc 0]

Montei uma funcao aki, mais naum deu tempo de testar ...Veja aew no que q da, e da um toque ... abraços

function PegarNumeros(const S: String): String;var   x: Integer;   Str: String;begin   Str:= '';   For x:= 1 to Length(S) do   begin	  If (S[x] In['0'..'9']) then	  begin		 Str:= Str + S[x];	  end;   end;   PegarNumeros:= Str;end;

Vou testar ela aqui valeu

[orc 0]

Montei uma funcao aki, mais naum deu tempo de testar ...Veja aew no que q da, e da um toque ... abraços

function PegarNumeros(const S: String): String;var   x: Integer;   Str: String;begin   Str:= '';   For x:= 1 to Length(S) do   begin	  If (S[x] In['0'..'9']) then	  begin		 Str:= Str + S[x];	  end;   end;   PegarNumeros:= Str;end;

FUNÇÃO ZERO BALA, TA FUNCIONANDO SIM VALEU RODRIGO

[Rodrigo Miss 1]

Opa! tamo aew http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif