Tema: Delphi 7
Ver Mensaje Individual
  #5  
Antiguo 21-12-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por jandrorm Ver Mensaje
Me explicare un poco mejor, yo tengo dos campos de textos (dos TEDIT) y quiero que al darle al boton conectar me compruebe que lo que se introducen en ellos son solo números y letras y no simbolos como: @ ' `^ , etc
Si lo que deseas hacer es validar que en el edit solo se introdusca ciertos caracteres validos puedes utilizar el evento OnKeyPressed de los edit y escribir mas o menos este codigo:
Código Delphi [-]
{Primero necesistamos una constante que contenga los caracteres que nos interesa, lo puedes definar 
de una manera global para usarla en cualquier parte del programa, poniendola adebajo del comando Uses}
uses ....; 
const
Alfabeto_Y_Numero=['a'..'z','A'..'Z','0'..'9'];//aqui declaramos una constante global 
type
  TForm1 = class(TForm)
...
...
Ahora en el evento OnKeyPressed de los edit hacemos lo siguiente:
Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in Alfabeto_Y_Numero)then {si el caracter pulsado
  no se encuentra entre los caracteres de mi costante entonces}
   begin
    Beep;//hago sonar el pitido
    Key:=#0;// y anulo la letra
   end;
  //sino se sigue normalmente por eso no es necesario codificar nada mas
end;
Espero te sea de utilidad...
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 24-12-2009 a las 16:54:56.
Responder Con Cita