[Lazarus-es] Problema con string y acentos

[francisco prieto]

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ó:

> 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
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150524/e4936670/attachment-0002.html>