PDA

Ver la Versión Completa : Limitar un TEdit sólo a Letras .... pero en Unicode !!


gluglu
23-04-2012, 19:00:37
Hola de nuevo a tod@s !

Siempre he utilizado
(Key in ['a'..'z']) or (Key in ['A'..'Z'])
para permitir sólo la introducción de letras en un TEdit o en otro componente de edición.

Pero ahora estoy pasando mi programa a Unicode, y quiero permitir 'letras' de otros alfabetos como el Cirílico, e impedir la introducción de cifras numéricas.

Podría utilizar también
if not Key in ['0'..'9']
pero quería preguntar si hay alguna forma más concreta o genérica de permitir introducir sólo caracters Unicode.

Por cierto, en la nueva versión de Delphi XE2 ya se recomienda utilizar :
if CharInSet(Key, ['a'..'z'])

Gracias por vuestros comentarios.

Saludos

Hispanohablante
23-04-2012, 19:12:34
Mira la función GetStringTypeEx de Windows, creo que puede servir para eso.