Tah, entendi agora cara. Faça o seguinte, esta tua function retornar o seguinte: Result := QuotedStr(dadoCriptografado);
_____ De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:32 Para: [email protected] Assunto: Re: RES: [delphi-br] Converter Ascii para String vamos lá denovo eu tenho um rotina q faz uma criptografia numa string wVar : string wVar := 'Alan Vieceli' wVar := Criptografa(wVar); wVar = #$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F; se eu der um showmessage ou salvar em um arquivo texto esse valor ele vai aparecer uns troços nada a ver... e eu gostaria q aparecesse exatamente o que tem ali..como texto. Queria transformar essa variavel em: wVar = '#$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F' Davi Eduardo Borges Wall escreveu: > > Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não > vai entender Tb. > > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > <mailto:delphi-br%40yahoogrupos.com.br>] Em nome de Alan Vieceli > Enviada em: sexta-feira, 23 de maio de 2008 14:22 > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Assunto: Re: [delphi-br] Converter Ascii para String > > até seria..só que seguinte... > > tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de > caracteres...tipo... > > #$4#45#$54f5'b'... > > dai se grava esse falar no banco de dados..só que...isso não são > strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um > monte de problema..dai queria conversar isso tudo pra string q resolvia > meu problema > > Vinicius Santos - MSI escreveu: > > > > Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: > > > > wVar = 'teste#13+#0'; > > > > Direto ?? > > > > Vinicius dos Santos > > Blog: http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas. <http://tuplas.blogspot.com> blogspot.com> > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> > > http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br> > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> > > > > ----- Original Message ----- > > From: Alan Vieceli > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Friday, May 23, 2008 2:07 PM > > Subject: [delphi-br] Converter Ascii para String > > > > Alguem sabe como eu faço pra converter uns caracteres Ascii para string? > > > > tipo: > > > > wVar := 'teste'+#13+#0 > > > > dai o conteudo dessa variavel ser: > > > > wVar = 'teste#13+#0'; > > > > [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]
