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
