Delphi 7

[jandrorm]

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

[jandrorm]

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 Es decir que me coja solo expresiones regulares. Gracias de antemano.

PD: Perdon por el doble post le di a citar en vez de a editar.

[rgstuamigo]

Empezado por jandrorm

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...

[jandrorm]

Hey muchisimas gracias , si me a sido muy util tu respuesta.

Y tambien para el retroceso y suprimir: Alfabeto_Y_Numero = ['a'..'z','A'..'Z','0'..'9',#32,#8];