ejercicio

[jefferson]

hala amigo.
me refiero mas o menos a lo siguiente:

ingreso un correo como juanito@hotmailcom.
o juanito@yahoo.es o bien sea uno para gmai. como este es un ejercicion de principiantes, solo necesito organizar la condicion que me diga si el correo ingresado es valido o no.

yo tengo un ejercio de clases, pero este es para allar el area de un cuadrado.
osea asi:

unit cuadradounit;
interface
type
Tcuadrado=class
private
lado:integer;
public
procedure setlado(Alado:integer);
function area:integer;
function getlado:integer;
end;
implementation
procedure Tcuadrado.setlado(Alado:integer);
begin
lado:=Alado;
end;
function Tcuadrado.getlado:integer;
begin
result:=lado;
end;
function Tcuadrado.Area:integer;
begin
result:=lado*lado;
end;
end.
end.


la cosa es que en este necesito otro enfoque por lo de la condicion, y alli es donde me enrredo un poco.

[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 "estesi@esvalido.com"?

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 := 'usuario@correo.com';
  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...