Erro em conversao
Alguem pode me ajudar a resolver porque ocorre esse erro?
Meu codigo pega a primeira letra de um edit e coloca em uma variavel;
s:Copy(Edit1.Text,0,1);(supondo s=a);
Preciso entao converter a letra em numero +- assim;
x:=Integer(s);
O problema é que dessa forma é gerado um numero muito grande sem sintido,mas se fosse assim,x:=Integer(´a´),funciona.
Se o ´a´ estiver na variavel s,x:=Integer(s) gera um numero errado.
Oque deve fazer,porque oque preciso é saber se a primeira letra(s)esta dentro do codigo ascii.
Meu codigo pega a primeira letra de um edit e coloca em uma variavel;
s:Copy(Edit1.Text,0,1);(supondo s=a);
Preciso entao converter a letra em numero +- assim;
x:=Integer(s);
O problema é que dessa forma é gerado um numero muito grande sem sintido,mas se fosse assim,x:=Integer(´a´),funciona.
Se o ´a´ estiver na variavel s,x:=Integer(s) gera um numero errado.
Oque deve fazer,porque oque preciso é saber se a primeira letra(s)esta dentro do codigo ascii.
Kroki
Curtidas 0
Respostas
Okama
14/09/2004
Olá,
Não tenho o código agora, mas verifique as funções Chr(), Ord() e altere o Copy para Copy( Edit1.Text,1,1);
Não tenho o código agora, mas verifique as funções Chr(), Ord() e altere o Copy para Copy( Edit1.Text,1,1);
GOSTEI 0