Valeu amigo,
[]s
Em 05/06/07, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
> lá vai.. ai é so vc adaptar..
>
> 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 05/06/07, Fellipe Henrique <[EMAIL PROTECTED] <fellipeh%40gmail.com>>
> escreveu:
> >
> > Olá amigos, estou pegando uma string num Buffer, mas ela vem assim:
> > 'Fellipe'#0#0#0#0
> > Como faço pra remover os #0 dela? ficando somente o texto mesmo?
> >
> > Desde já agradeço...
> >
> > --
> > _________________________________
> > Fellipe Henrique
> > [EMAIL PROTECTED] <fellipeh%40gmail.com> <fellipeh%40gmail.com>
> > "Você valoriza a existêcia das pessoas extraordinárias e momentos em que
> a
> > história avança graças a elas. Tudo o que se imagina pode ser alcançado.
> > Deve-se ousar sonhar. Mas não há substituto para perseverança e
> > trabalho...
> > e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
> > grandeza desses eventos e as pessoas que os realizam... não podemos
> > esquecer
> > o sacrifício daqueles que tornam possíveis tais realizações."
> >
> > [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]
>
>
>
--
_________________________________
Fellipe Henrique
[EMAIL PROTECTED]
"Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
história avança graças a elas. Tudo o que se imagina pode ser alcançado.
Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho...
e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
grandeza desses eventos e as pessoas que os realizam... não podemos esquecer
o sacrifício daqueles que tornam possíveis tais realizações."
[As partes desta mensagem que não continham texto foram removidas]
