Quiero comprobar que lo tecleado sobre un campo Edit contenga tan s�lo letras, para ello hago una rutina muy sencilla que es la siguiente:
Funci�n comprobar(tecleado :string):bolean;
Const Letras : ['a .. z','A .. Z','�','�','�','�','�'];
Var x : integer;
For x :=1 to length(tecleado) do Begin
    If tecleado[x] in letras tren
    Else begin
        Showmessage('hay un car�cter extra�o');
        Result := false
        Exit;
End;

El error se me produce cuando compil� en la sentencia Letras que me dice: "Ordinal expresi�n expected"

Mi pregunta es c�mo puedo comprobar que lo tecleado son s�lo letras.

Gracias de antemano.

Juan Perles
628.482.007
Enviado desde mi iPad

Pero no es lo mismo letras que Letras.

Saludos
Pancho
C�rdoba
Argentina

El dom, 24 de mayo de 2015 06:12, Juan Perles <perlesj en gmail.com> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150524/e4936670/attachment.html>

aca hay un error:

Const Letras : ['a .. z','A .. Z','�','�','�','�','�'];

debe ser

Const Letras : ['a' .. 'z','A' .. 'Z','�','�','�','�','�'];

?Creo ?que con ese cambio tendr�a que andar. El "Ordinal expression expected" es porque le tenes que dar un array de caracteres y con tu typo le estabas dando un array de strings.

Aca hay un ejemplo que s�lo hacepta n�meros:
http://www.festra.com/eng/snip05.htm
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150524/4dcccde3/attachment.html>

No deber�a ser
Const Letras = ['a' .. 'z','A' .. 'Z','�','�','�','�','�'];

en vez de ":" ?

Los dos puntos son para declarar, pero aqu� adem�s queremos establecer un valor constante.

2015-05-25 3:49 GMT-03:00 Jose antonio Cuello Principal < jcuello en artextrading.com>:

?probablemente :) ?