Ricardo, no seu lugar eu faria o mesmo. Nunca altero o que esta funcionando, só postei para você ver que existe uma maneira usando uma unica variavel para o loop.
Eduardo Ricardo Cabral escreveu: > > Eduardo, > > É isso mesmo ! > Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como > tava. > > Abraços, > > Ricardo > > Eduardo Castro Alves <[EMAIL PROTECTED] > <mailto:ecastroa_edu%40yahoo.com.br>> escreveu: Ricardo, pelo que eu > entendi, você pega um texto e transforma em um > texto só de numeros. > > Assim tb funciona. > > function ExtractNumber(pValor : String) : String; > var > i : Integer; > begin > Result := ''; > for i := 1 to Length(pValor) do > begin > if pValor[i] in ['0'..'9'] then > Result := Result + pValor[i]; > end; > end; > > Eduardo > > Ricardo Cabral escreveu: > > > > Paulo, > > > > Não sei se já existe no delphi, mas eu uso essa para qualquer string. > > > > Espero ter ajudado. > > > > Ricardo Cabral > > > > Function Tffuncoes.numeros(valor : string) : string; // Limpa string e > > deixa soimente numeros > > var > > i : integer; > > xvalor : string; > > xnum : String; > > begin > > xvalor:=trim(valor); > > xnum:='0123456789'; > > valor:=''; > > for i := 1 to Length(xvalor) do > > begin > > if pos(copy(xvalor,i,1),xnum)>0 then > > valor:=valor+copy(xvalor,i,1); > > end; > > result:=valor; > > end; > > > > pcinfowave <[EMAIL PROTECTED] <mailto:infowave%40jupiter.com.br> > > <mailto:infowave%40jupiter.com.br>> escreveu: Ola amigos, > > Alguem podria me passar uma função que retire os sinais de uma data, > > deixando apenas os numeros? > > Obrigado! > > []´ > > Paulo > > > > > > > > > > > > Flickr agora em português. Você clica, todo mundo vê. Saiba mais. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > Flickr agora em português. Você clica, todo mundo vê. Saiba mais. > > [As partes desta mensagem que não continham texto foram removidas] > >
