¿sintasis para validar edits?

[soma25]

hola soy principante en este lenguaje, estoy hacindo u progrmama en el cual me pide que valide los edits, es decir que en un edit me acepte puros numeros y en otro edit puras letras ¿alguien me puede ayydar popr favor?


<tte

soma25

[nano.olim]

Bueno, primero te voy a dar el codigo para que no se puedan introducir letras y despues para que no se introduzcan numeros, son parecidos. Ah!...tene presente que siempre vamos a aplicar estos metodos en el evento onkeypress de los edits:

/**
*sin letras
*/
if not (Key in ['0'..'9', #8, #13]) then
Key := #0;

/**
*Ahora sin numeros
*/
if (Key in ['0'..'9', #13]) then
Key := #0;

como veras en el segundo le sacamos el #8 que corresponde al backspace y si queres que te ande el enter, al segundo sacale el #13.
Si necesitas mas ayuda no dudes!....exitos!