Putz, que loucura rapaz. _____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 15:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Converter Ascii para String Valeu pela resposta Antonio..já fiz isso, não rolou tambem.. ele não converte os Ascii para string, continua vindo os caracteres correspondete ao codigo ascii Antonio ney.Silva escreveu: > > Vê se assim não dá certo: > > function Criptografar(const S: string; Key: Word): string; > var > I: Integer; > OutValue : String; > begin > OutValue := ''; > for I := 1 to Length(S) do > OutValue := OutValue + char(Not(ord(S[I])-Key)); > Result := QuotedStr(OutValue); > end; > > _____ > > 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:41 > 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 > > Criptografar('ALESANDRA',59) > > por exemplo... > > Vinicius Santos - MSI escreveu: > > > > Como, vc está fazendo a chamada da Função ? > > > > Vinicius dos Santos > > Blog: http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com> > > http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.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> > > Sent: Friday, May 23, 2008 2:35 PM > > Subject: Re: [delphi-br] Converter Ascii para String > > > > Ai vai a bendita.... > > > > function Criptografar(const S: string; Key: Word): string; > > var > > I: Integer; > > OutValue : String; > > begin > > OutValue := ''; > > for I := 1 to Length(S) do > > OutValue := OutValue + char(Not(ord(S[I])-Key)); > > Result := OutValue; > > end; > > > > Vinicius Santos - MSI escreveu: > > > > > > Eu ACHO que entendi... > > > A sua rotina de criptografia está retornando valores como '#10#15', > > > etc...certo ? > > > Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser > > > mais claro ! Como diz o outro: "Uma pergunta bem feita, vale mais da > > > metade da resposta." > > > > > > Vinicius dos Santos > > > Blog: http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com> > > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com <http://tuplas. > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com>> > > > http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br> > > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br>> > > > > > > ----- Original Message ----- > > > From: Davi Eduardo Borges Wall > > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> > os.com.br > > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br> > > > Sent: Friday, May 23, 2008 2:25 PM > > > Subject: RES: [delphi-br] Converter Ascii para String > > > > > > 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:delphi-br%40yahoogrupos.com.br> > > > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> > os.com.br > > <mailto:delphi-br%40yahoogrupos.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> > > <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. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com> > > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com <http://tuplas. > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com>> > > > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com> > > <http://tuplas. <http://tuplas. <http://tuplas.blogspot.com> blogspot.com > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com <http://tuplas. > <http://tuplas. <http://tuplas.blogspot.com> blogspot.com <http://tuplas. <http://tuplas.blogspot.com> blogspot.com>> blogspot.com>>> > > > > http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br> > > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br>> > > > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br> > > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br>> oes.com.br > <http://www.msisoluc <http://www.msisoluc <http://www.msisolucoes.com.br> oes.com.br > <http://www.msisoluc <http://www.msisolucoes.com.br> oes.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> > > > <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] > > > > > > > > > > [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]
