Hola, tengo problemas con el siguiente ejercicio:
Escribe una función que devuelva si un carácter es un dígito (0 a 9), es una letra mayúscula, es una letra minúscula o es un carácter especial.
El código que he creado es este:
Código Delphi
[-]Function Caracter(c:char):integer;
var n:integer;
begin
case c of
'0'..'9':'Digito'
'A'..'Z':'Letra mayuscula'
'a'..'z':'Letra minuscula';
else 'Caracter especial';
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var n:integer;
begin
val(Edit1.Text,n);
n:=Caracter(c);
Edit2.Text:=FloatToStr(n);
end;
Y me marca los siguientes errores:
unit1.pas(61,3) Error: Illegal expression
unit1.pas(61,3) Fatal: Syntax error, ";" expected but "const char" found
Espero y me puedan ayudar.
Gracias, Saludos.