¿como obtener el dominio de un email? el que sigue al arroba @dominio.com

[JXJ]

¿como obtener el dominio de un email?
el que sigue al arroba @dominio.com

vicanfon@inf.upv.es
infor@flow.com
informacion@clubdelphi.com
info@chevrolte.com.mx
casablanca@whitehouse.gov


ando dandole vuelas al asunto y no hayo como hacerlo
me pueden orientar¡=?

[ecfisa]

Hola JXJ.

Código Delphi [-]
function ExtraerDominio(Email: string): string;
var
  i: Integer;
begin
  Email:= Copy(Email, Pos('@', Email) + 1, Length(Email));
  i:= 1;
  while Email[i] <> '.' do
  begin
    if Email[i] <> '.' then
      Result:= Result + Email[i];
    Inc(i);
  end;
end;

La función devuelve el dominio, no hice ningún tipo de validación del parámetro...

Saludos.

[JXJ]

Gracias ecfisa

ya quedo y funciona bien

[ecfisa]

De nada, me alegro que te sirviera