Editando a mensagem anterior:
Para descobrir o caracter relacionado a um código ASCII, use a função chr();
Ela retorna o char correspondente ao word que você colocar como parâmetro.
No seu exemplo, eu faria assim:
var num:Byte;
asc, palavra:string;
begin
.
.
.
palavra:='';
while length(asc)>0
do
begin
while (asc[1] in ['0'..'9'])=false
do
asc:=copy(asc,2,length(asc)-1);
num:=0;
while length(asc)>0
do
begin
if not (asc[1] in ['0'..'9'])
then
break;
num:=10*num+strtoint(asc[1]);
asc:=copy(asc,2,length(asc)-1);
end;
palavra:=palavra+chr(num);
end;
end;
Onde num=variável de uso temporário, usada para armazenar o código ASCII do
char.
asc=string original, com os códigos ASCII separados por traços ou outro
caracter;
palavra=string original;
Faz uma alteração no exemplo que te passei. Assim funciona melhor (não dá
erro caso length(numero) for 0...
var i:Byte;
asc, numero:string;
begin
.
.
.
if length(numero)<1
then
exit;
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,
novamente.
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
23/12/05, Fellipe Henrique <[EMAIL PROTECTED]> escreveu:
>
> 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 >>>>>
>
>
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
> <http://br.rd.yahoo.com/SIG=12ful00cv/M=387526.7688413.8560997.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135340053/A=3195617/R=2/id=noscript/SIG=16d4kor65/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=9981&LID=286435&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs>
> ------------------------------
> *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>.
>
>
[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
