Delphi 7

[jandrorm]

Hola, soy principiante en delphi y quiero hacer lo siguiente:

procedure TPrincipal.ConectarClick(Sender: TObject);

con passtxt.Text y con PassTxt.Text ; que me compruebe si son expresiones regulares. y estube leeyendo y vi que habia una libreria pero no la encontre y ya nose si existes alguna libreria por defecto que la lleve delphi 7 para poder utilizarla.

[[maeyanes]]

Hola...

Bienvenido a estos foros. Te recomiendo que le des una leida a la Guía de estilo de los foros (si aun no lo has hecho).

Explica mejor que es lo que quieres lograr para que te podamos ayudar mejor. Un fragmento del código que ya tienes podría ayudar...


Saludos...

[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];