CODIGO DA TABELA ASCII
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
Curtidas 0
Respostas
Nildo
12/02/2003
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
GOSTEI 0
Nildo
12/02/2003
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;
GOSTEI 0
Dor_poa
12/02/2003
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
GOSTEI 0