Paulo, um nome tem 10 letras que tenha 20, então você vai transformar estes 20 caracteres em 60, realmente não é muito, mais imagina como ficaria um texto com 300 letras.
Por isso acho que exista métodos mais robustos do que este. Eduardo pcinfowave escreveu: > > Ola amigos, desculpa entrar na conversa de vocês, mas sobre > converter palavras em numeros, eu uso aqui algo parecido para gerar > codigo de autorização. > > Assim, eu tenho que gerar um codigo para permitir a edição de um > registro: nomde do cliente, por exemplo. > > Dai, pego o nome atual, converto em numeros e atraves dos numeros, > faço outras checagens para gerar um codigo de autorização. > > Eis aí uma utilidade para a função! embora há quem queira usar para > uma especie de criptografia tambme. > > []´s > Paulo > > --- Em delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br>, "Thiago Filiano (America Soft)" > <[EMAIL PROTECTED]> escreveu > > > > blz cara, vou testar aqui.. > > olha sinceramente eu tbm não sei, mas um amigo meu pediu para > postar a > > dúvida :) > > > > obrigadao!! > > > > Eduardo Castro Alves escreveu: > > > Ta na mao, mas nao sei ate a onde vale apena. > > > > > > function TForm1.NumeroPTexto(pNum : String) : String; > > > var > > > i : Integer; > > > t, > > > s : String; > > > > > > begin > > > > > > s := ''; > > > i := 1; > > > t := pNum; > > > while i < Length(t) do > > > begin > > > s := s + Chr(StrToInt(Copy(t, i, 3))); > > > i := i + 3; > > > end; > > > Result := s; > > > > > > end; > > > > > > function TForm1.TextoPNumero(pTexto : String) : String; > > > var > > > i : Integer; > > > s : String; > > > > > > begin > > > > > > s := ''; > > > for i := 1 to Length(pTexto) do > > > begin > > > s := s + FormatFloat('000', ORD(pTexto[i])); > > > end; > > > Result := s; > > > > > > end; > > > > > > > > > Eduardo > > > > > > Thiago Filiano (America Soft) escreveu: > > >> Pessoal, > > >> > > >> bom dia! > > >> > > >> Alguém tem um algoritimo pra converter palavras em numeros?? > > >> > > >> e depois voltar os numeros para a/as palavras? > > >> > > >> Obrigado, > > >> > > >> Thiago Filiano > > >> > > >> > > > > > > > > > > > > _______________________________________________________ > > > Yahoo! Mail - Sempre a melhor opção para você! > > > Experimente já e veja as novidades. > > > http://br.yahoo.com/mailbeta/tudonovo/ > <http://br.yahoo.com/mailbeta/tudonovo/> > > > > > > > > > > _______________________________________________________ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
