CODIGO DA TABELA ASCII
12/02/2003
0
Ola galera show...
galerinha é assim tenho um editbox e quero saber quais os valores dela em ascii...
como faço pra pegar os valores da tabela ascii de uma palavra digitada
quero mostrar em um outro editText..
Atenciosamente,
:lol:
galerinha é assim tenho um editbox e quero saber quais os valores dela em ascii...
como faço pra pegar os valores da tabela ascii de uma palavra digitada
quero mostrar em um outro editText..
Atenciosamente,
:lol:
Khelphi Wanstear
Curtir tópico
+ 0
Responder
Posts
12/02/2003
Nildo
var
i: integer;
begin
for i := 1 to length(edit1.text) do
edit2.text := edit2.text + Ord(edit1.text[i]) + ´ ´;
edit2.text := trim(edit2.text);
end;
Isso resolve. Qualquer outra coisa é só dizer
i: integer;
begin
for i := 1 to length(edit1.text) do
edit2.text := edit2.text + Ord(edit1.text[i]) + ´ ´;
edit2.text := trim(edit2.text);
end;
Isso resolve. Qualquer outra coisa é só dizer
Responder
12/02/2003
Nildo
Opss
var
i: integer;
begin
for i := 1 to length(edit1.text) do
edit2.text := edit2.text + inttostr(Ord(edit1.text[i])) + ´ ´;
edit2.text := trim(edit2.text);
end;
var
i: integer;
begin
for i := 1 to length(edit1.text) do
edit2.text := edit2.text + inttostr(Ord(edit1.text[i])) + ´ ´;
edit2.text := trim(edit2.text);
end;
Responder
12/02/2003
Dor_poa
Cara, o melhor é ir no edit, no evento onkey prees a variavel Key vem a letra correspondente e no evento KeyDown vem o codigo ASCII
Responder
Clique aqui para fazer login e interagir na Comunidade :)
