ejercicio

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

[[Delphius]]

Hola!
Inspirado en el código de Egostar realize una función que tiene un poco más de control:

Código Delphi [-]
function ValidateEMail(EMail: string): boolean;
var PosA, PosP
begin
  PosA := Pos('@',EMail);
  PosP := Pos('.',EMail);
  result := (PosP > PosA) and (PosA <> 0)
end;

Saludos,

[mamcx]

No hombre, ese codigo permitiria:

@.com!!!!

La forma correcta requiere hacer como minimo, un barrido.

[[Delphius]]

Empezado por mamcx

No hombre, ese codigo permitiria:

@.com!!!!

La forma correcta requiere hacer como minimo, un barrido.

Mamx, estamos tratando de darle una idea, más que darle la solución de una. Invitamos a pensar y razonar a jefferson.

Además, por algo dije:

que tiene un poco más de control

Pero con respecto a la idea de Egostar, que su código no tiene en cuenta la posición del punto respecto al arroba.

Saludos,