Valeu tiago, agora precisaria de um sistema para voltar, tipo, ao executar esta função ficaria algo em torno de:
11-15-75-74-85-41-14-147 Onde cada numero eh o numero ascii, como pego cada numero e converto novamente para a palavra? Desde já agradeço []s Fellipe H;. Em 22/12/05, Thiago Quinelato <[EMAIL PROTECTED]> escreveu: > > Para descobrir o código ASCII de um char, use a função ord(); > Ela retorna o inteiro correspondente ao caracter que você colocar como > parâmetro. > No seu exemplo, eu faria assim: > > var i:Byte; > asc, numero:string; > begin > . > . > . > asc:=''; > for i:= 1 to length(numero)-1 do > asc:=asc+inttostr(ord(numero[i]))+' - '; > asc:=asc+inttostr(ord(numero[length(numero)])); > end; > > Onde i=índice da string original; > asc=string final, com os códigos ASCII separados por traços; > numero=string original; > > Espero ter ajudado, resolvendo seu problema. Qualquer dúvida, pergunte. > E se alguém tem uma forma mais simples de fazer, me diga! :D > > -- > Thiago de Oliveira Quinelato. > Aluno do 4º Módulo do Curso Técnico de Informática Industrial - CTU/UFJF. > Aluno da 3ª série "A" do Ensino Médio - CTU/UFJF. > Programador de Pascal, Delphi, PHP, Java e MySQL, com conceitos da > linguagem > C. > > > Em 22/12/05, Fellipe Henrique <[EMAIL PROTECTED]> escreveu: > > > > Olá, tenho uma string, de numeros, sempre de numeros e gostaria de > saber > > o > > valor ASCII de cada numero > > Ex: 123456789 > > ASCII: 11 25 14 14 14 14 etc... > > > > como eu faço isso? > > > > Desde já agradeço > > -- > > _________________________________ > > Fellipe Henrique > > [EMAIL PROTECTED] > > "Venham até a borda, ele disse. > > Eles disseram: Nós temos medo. > > Venham até a borda, ele insistiu. > > Eles foram, Ele os empurrou... > > E eles voaram." > > (Guillaume Apollinaire) > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > > > > > > > *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE > > < > http://br.rd.yahoo.com/SIG=12fg3ckmm/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135257491/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/ > > > > ------------------------------ > > *Links do Yahoo! Grupos* > > > > - Para visitar o site do seu grupo na web, acesse: > > http://br.groups.yahoo.com/group/delphi-br/ > > > > - Para sair deste grupo, envie um e-mail para: > > [EMAIL PROTECTED]< > [EMAIL PROTECTED]<http://[EMAIL PROTECTED]/?subject=Unsubscribe> > > > > > > - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE > > <http://br.rd.yahoo.com/SIG=12fn0f5mv/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135277264/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/> > ------------------------------ > *Links do Yahoo! Grupos* > > - Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > - Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED]<[EMAIL PROTECTED]> > > - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > -- _________________________________ Fellipe Henrique [EMAIL PROTECTED] "Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram." (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
