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]> 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]<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]<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]
> > > > <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] <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]
