Case

[Visitante: Glayder]

Ola, nao consigo criar um "case" que quando eu coloco qualquer letra no edit ele me mostra a mensagem alfabeto

me ajudem

var 
key:char;

begin
key:=strtoint(edit1.text); /acho q o erro esta na converçao/
case key of
'a'..'z': showmessage('alfabeto');

[Fazzioni]

Olá... o erro é ali mesmo... O tipo "CHAR" é do tipo caracteres que aceita apenas um caracter e a string é do mesmo grupo mas aceita n bytes,caracteres...

Para dar certo faça assim...:

key := Edit1.Text[1]; // O valor 1 é a primeira letra...

e o comando CASE ele suporta so tipos inteiros como:

Shortint

Smallint

Longint

Byte

Word

Integer

Cardinal

Mas pra verificar se o valor é alfabeto ou não você pode usar esse codigo..:

if (Key in['a'..'z','A'..'Z'])  then
ShowMessage('Alfabeto);

ATT

Daniel Fazzioni