Delphi - No acepte espacios

 
Vista:

No acepte espacios

Publicado por Juan Calderon (6 intervenciones) el 31/10/2006 05:10:00
Buenos dias.

De antemano mil gracias.

Como evitar que al momento de captura datos no acepte espacios o barra espaciadora.

No es como eliminar espacios en una cadena de textos.
Es como evitar que al estar escribiendo no acepte la barra espaciadora.

Estoy escribiendo en un DBEdit1.

Delphi 5

saludos.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:No acepte espacios

Publicado por BigLuis (713 intervenciones) el 31/10/2006 08:48:43
En el evento OnKeyPress del TDBEdit puedes colocar el siguiente codigo

if not (Key in ['A'..'Z','a'..'z','ñ','Ñ',' ',#8]) then
Key:=#0;
Esto solodeja escribir lo que ves, letras mayusculas y minusculas y espacios
#8 es retoceso para que puedas borrar una equivocacion introducida.

y con cretamente lo que tu quieres puede ser

if not (Key in ['A'..'Z','a'..'z','ñ','Ñ','0'..'9',#8]) then
Key:=#0;

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:BIGLUIS eres grande !!!!!

Publicado por Juan Calderon (6 intervenciones) el 31/10/2006 13:36:39
Buenos dias,

BIGLUIS efectivamente eres grande.

Fuistes muy preciso en tu respuesta, exactamente lo que queria.

gracias.

saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar