ejercicio

[mamcx]

O sea que estas buscando si el texto entrado es un correo? Asi, si alguien escribe:

- correonovalidao.com
- correo@novalido
- @novalido.com

diga que no lo es?

[jefferson]

hola.
si claro amigo a eso me refiero

es que en turbo pascal seria asi:

if (correo<>yahoo.es)or(correo<>hotmail.com)or(correo<>gmail.com)then
begin
writeln('este correo no es valido');
end
else
begin
writeln('correo valido');
end;
end.


pero en delphi nose cambios habrian. bye.

[mamcx]

Delphi y Pascal es lo mismo. Pero el algoritmo que usas no sirve.

Y que pasa si es uno "[email protected]"?

Debes es armar un sistema de reglas que son comunes a todas las direcciones de correo. Como por ejemplo, que tiene un @, que antes hay esto y que despues esto.

Para ello, busca en internet como validar un correo electronico, veras muchos ejemplos.

[jefferson]

pase eso por alto gracias.

ya me pongo atrabajar en eso . hare el planteamiento. bye.

[jefferson]

un saludo a todos:

oye parsero ya tengo la condicion: bueno aun que esa es solo para verificar que este el @. pero pues de alli se basan las demas condiciones.
gracias a los que opinaron y/o ayudaron.

for i:=1 to length(email)do
begin
if email[i]='@'then
begin
arroba:=true;
break;
end;
end.

y pues podemos dar por terminado el tema. un que me queda buentrabajo por hacer aun.
bye.

[[egostar]]

Empezado por jefferson

oye parsero ya tengo la condicion: bueno aun que esa es solo para verificar que este el @. pero pues de alli se basan las demas condiciones.
gracias a los que opinaron y/o ayudaron.

Hola jefferson

Aunque esto de validar un correo tiene sus complicaciones, que te parece esto?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Correo: string;
begin
  Correo := '[email protected]';
  if (Pos('@',Correo) > 0) and
     (Pos('.',Correo) > 0) then
     ShowMessage('Correo Válido')
  else ShowMessage('Correo Inválido');
end;

Salud OS

PD: Usa las etiquetas delphi para que tu código se vea mejor...

[jefferson]

hola pana (a).
pues gracias amigo esta forma de buscar el arroba dentro del correo esta mas entendible que la de mi profesor. y pues como es para trabajar en unidades apartes declarando clases y funciones. ya sabes son bastantes condiciones para validar un correo electronico. le seguire metiendo cosas.
buena contribusion bye.