Tamara,
Já foram dadas 700.000 soluções para esse caso. Acho que a pessoa que solicitou isso já montou uma biblioteca de retirar “sinais” de uma data. Pois tantas foram as formas de solução que passaram pra ele. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara Clemente Enviada em: quarta-feira, 5 de setembro de 2007 08:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Retirar sinais de uma data Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que entendi a necessidade é retirar barra ou traço separador de dia, mes e ano, correto??? O formatdateTime naum ajuda???? Tamara Clemente Analista Desenvolvedora Em 04/09/07, Eduardo Silva dos Santos <[EMAIL PROTECTED] <mailto:eduardo.drd%40gmail.com> > escreveu: > > da pra fazer de várias formas mesmo, eu mesmo uso essa rotina.. > > function remove_carcter(sString:String):String; > var > cSpecial: String; > nPos, nConta: Integer; > begin > > cSpecial := > > ';~ø.`''''()[EMAIL > PROTECTED]&*_-+=}{[]|\/".,<>?*-+€‚,.ƒ„…†‡ˆ‰Š‹ŒŽ''""•–—˜™š›œžŸ > ¡¢£¤¥¦§¨(c)ª«¬(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ'; > Result := ''; > for nConta := 1 to Length(cSpecial) do begin > while Pos(cSpecial[nConta],sString ) > 0 do > System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1); > end; > Result := sString; > > end; > > Em 04/09/07, Eduardo Castro Alves <[EMAIL PROTECTED] > <mailto:ecastroa_edu%40yahoo.com.br> <ecastroa_edu%40yahoo.com.br>> > escreveu: > > > > 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> <ecastroa_edu%40yahoo.com.br> > <ecastroa_edu%40yahoo.com.br> > > > <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> > > > > <infowave%40jupiter.com.br><infowave%40jupiter.com.br><mailto: > > infowave% <infowave%25>40jupiter.com.br> > > > > <mailto:infowave% <infowave%25> <infowave%25>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] > > > > > > > > > > > > > > -- > Eduardo Silva dos Santos > DRD Sistemas. > (27) 3218-4201 > MSN: [EMAIL PROTECTED] <mailto:eduardo.drd%40gmail.com> > <eduardo.drd%40gmail.com> > Site: http://www.drdsistemas.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
