ejercicio

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

[keyboy]

A ver que les parece esta otra aproximación

Código Delphi [-]
function ValidEMail(EMail: String): Boolean;
var
  Parts: TStrings;
  Usuario, Servidor: String;
  I: Integer;

begin
  // Seamos pesimistas
  Result := false;

  // Quitamos espacios a los lados, que si bien son incorrectos, no estorban
  EMail := Trim(EMail);

  // Pero no permitamos espacios intermedios
  if Pos(' ', EMail) <> 0 then
    exit;

  Parts := TStringList.Create;

  try
    // Partamos la cadena tomando la @ como delimitador
    Parts.Delimiter := '@';
    Parts.DelimitedText := EMail;

    // Debe haber dos y sólo dos partes...
    if Parts.Count <> 2 then
      exit;

    Usuario := Parts[0];
    Servidor := Parts[1];

    // ...y ninguna puede estar vacía
    if (Usuario = '') or (Servidor = '') then
      exit;

    // Ahora separemos la parte servidor tomando el . como delimitador
    Parts.Delimiter := '.';
    Parts.DelimitedText := Servidor;

    // Debe haber al menos dos partes...
    if Parts.Count < 2 then
      exit;

    // ...pero ninguna vacía
    for I := 0 to Pred(Parts.Count) do
      if Parts[i] = '' then
        exit;

    Result := true;
  finally
    Parts.Free;
  end;
end;

Como digo, es sólo una aproximación así que no pretende hacer más que esto:

1. Determinar que existe una y sólo una @
2. Que hay algo antes (usuario) y después (servidor) de esa @
3. Que después de la @ hay por lo menos dos partes separadas por puntos
4. Que ninguna de esas partes está vacía.

Esto es, se permiten cosas como

[email protected]

pero no

usuario@servidor
@servidor.com
usuario@@servidor.com
[email protected]
etc.

No valido el punto en la parte de usuario porque, al menos yo, tengo direcciones de correo de la forma

[email protected]

Bye