2 cositas a ver si me ayudan

[lynu]

1.) la primera es que tengo un Tedit el cual sera ingresado un email y quiero saber si existe la prosibilidad de verificar la data para ver si el email esta bien escrito, (Ejemplo "usuario@email.com") pk no quisiera que algun usuario introdujera un email mal escrito (Ejemplo "u suario@//email.com") espero entiendan lo que le quiero decir

2.) Quisiera saber como en un texto hago que cambie de mayusculas a minusculas automaticamente, lo que quiero decir que cuando el usuario este dijitando la primera letra salga Mayuscula, y las demas minuscula y que si en el texto esiste un espacio, la siguiente letra despues de ese espacio sea mayusculas y las siguientes minusculas.

espero me puedan ayudar, busque en google.com y en todo el foro y no vi otro topic como este. ahh estoy bajo delphi 7.

[vtdeleon]

Saludos

Antes que todo, lynu, decirte que 2 preguntas conlleva 2 hilos. Y los titulos de cada uno deben ser descriptivos.

Ahora

1) Algo que se me ocurre es verificar que exista la arroba y despues verificar si existe el punto (despues de la arroba, no antes)

Código Delphi [-]
var
  m,n:integer;
begin
  m:=pos('@',edt1.Text);
  n:=pos('.',edt1.Text)-1;
  if not ((m>0) and (n>m) and (n < Length(edt1.Text))) then
    showmessage('Email no válido');
end;

[vtdeleon]

2) Anteriormente se trató algo parecido, pero no encuentro el hilo. Por ahora he hecho esto (se puede mejorar).

Código Delphi [-]
var
  n:integer;
  Cadena:string;
begin
  Cadena:=edt1.Text;
  n:=Length(Cadena);
  if (n=0) or (cadena[n]=' ') then
      key:=UpCase(key)

[lynu]

muchas gracias, y tendre en cuenta lo de los hilos distintos y los titulos de temas :P