Valeu... é isso memo que queria!
Veja abaixo, a linha que acrescentei para calcular o valor da
string. A partir dai, combinado com outras variáveis, vou gerar um
código de autorização p/ fazer alteração em um nome de cliente, por
exemplo.
Agora, vc saberia me informar uma função que pudesse retornar o
valor de um nome, baseado no sistema de numerologia? Ou a lógica
usada em numerologia p/ determinar os valores das letras, pois assim
poderíamos criar a função.
Só + uma coisinha: o ORD retorna o "ordinal value" do caractere. Dai
olhei o Help e vi q p/ ASCII posso usar a função Chr, mas nao
consegui retornar o ASCII de cada caractere usando esta função. Vc
pode me dar + esta luz?
Brigado!
Paulo
procedure TForm1.Button1Click(Sender: TObject);
var I, C: Integer;
begin
C := 0;
for I := 0 to Length(Edit1.Text) do
begin
C := C + Ord(Edit1.Text[I]);
Edit2.Text := IntToStr(Ord(Edit1.Text[I])) + Edit2.Text;
end;
Edit3.Text := IntToStr(C);
end;
--- Em delphi-br@yahoogrupos.com.br, "Leonardo FuMaSSa_"
<[EMAIL PROTECTED]> escreveu
> procedure TForm1.Button1Click(Sender: TObject);
> var
> i: Integer;
> begin
> for i:=0 to Length(Edit1.Text) do
> Edit2.Text := IntToStr(Ord(Edit1.Text[i])) + Edit2.Text;
> end;
>
> // Pra mudar a ordem basta alterar a posição do Edit2.Text;
> {
> Edit2.Text := IntToStr(Ord(Edit1.Text[i])) + Edit2.Text;
> outra ordem:
> Edit2.Text := Edit2.Text + IntToStr(Ord(Edit1.Text[i]));
> }
> ----- Original Message -----
> From: pcinfowave
> To: delphi-br@yahoogrupos.com.br
> Sent: Monday, October 31, 2005 1:58 PM
> Subject: [delphi-br] Numero das teclas
>
>
> Ola...
> Preciso gerar um código baseado no valor numerico de cada tecla
de uma
> string.
> Como fazer p/ capturar o codigo dos caracteres de um texto
digitado?
> No aguardo
> []´s
> Paulo
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
> -------------------------------------------------------------------
-----------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do Serviço do Yahoo!.
>
>
>
> [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
