Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-08-2010
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 22
JXJ Va por buen camino
¿como obtener el dominio de un email? el que sigue al arroba @dominio.com

¿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¡=?
Responder Con Cita
  #2  
Antiguo 28-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 28-08-2010 a las 07:36:56.
Responder Con Cita
  #3  
Antiguo 28-08-2010
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 22
JXJ Va por buen camino
Gracias ecfisa

ya quedo y funciona bien
Responder Con Cita
  #4  
Antiguo 28-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
De nada, me alegro que te sirviera
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Conexión al dominio yoennis Conexión con bases de datos 2 10-03-2009 02:53:15
Como meter una maquina en el dominio. l30 API de Windows 6 17-09-2007 07:34:56
Liberan el Dominio .eu egostar Noticias 0 08-04-2006 07:27:21
Como compartir internet en una red con dominio carlos gonzalez Redes 2 22-07-2005 20:56:28
conectar xp a un dominio Manuel Windows 7 12-03-2004 10:59:17


La franja horaria es GMT +2. Ahora son las 01:01:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi