Foros Club Delphi - ayuda!! soy nueva en esto!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ayuda!! soy nueva en esto! (https://www.clubdelphi.com/foros/showthread.php?t=68923)

camivy

15-07-2010 04:33:11

ayuda!! soy nueva en esto!

necesito hacer una aplicacion en delphi donde pueda poner nombre y apellido en un edit, que me muestre la direccion de correo electronico de esa persona en gmail. por ejemplo, si la persona se llama juan perez, que el programa me muestre [email protected]

muchas gracias!

ecfisa

15-07-2010 05:22:30

Hola camivy, bienvenida.

Supongo que debe ser algun tipo de ejercitación que te han dado ya que lo ortodoxo
sería tener almacenados los nombres y apellidos en relación a su dirección de email.

Pero si el algorítmo sólamente debe generar automáticamente emails
acorde a el requisito: primera_letra_nombre + apellido+ '@gmail.com' , podrías hacer:

Código:

function NombreEmail(const Nombre: string): string;

begin

  Result:= LowerCase(Nombre);           // por si está en mayúsc.

  Delete(Result, 2, Pos(' ',Result)-1); // borra 2do hasta espacio inc.

  Result:= Result + '@gmail.com';       // agrega '@gmail.com'

end;

Saludos.

Casimiro Noteví

15-07-2010 10:17:42

Hola camivy, bienvenida al clubdelphi, te aconsejo que eches un vistazo a nuestra guía de estilo, muchas gracias.

p.d.: muevo este tema a "varios"

camivy

15-07-2010 17:01:39

muchas gracias!!!
el codigo tendria qu ponerlo en el edit?

ecfisa

15-07-2010 19:51:35

Hola de nuevo camivy.

El código tendrías que ponerlo una vez que finalices el ingreso en el Edit.
Es decir que podés ponerlo en el evento OnExit del Edit o si preferís asignarlo al evento OnClick de algún TButton.

Te doy ejemplos:

En el evento OnExit del TEdit:

Código:

procedure TForm1.Edit1Exit(Sender: TObject);

begin

   ShowMessage(NombreEmail(Edit1.Text));

end;

En OnClick de un TButton:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

   Label1.Caption:= NombreEmail(Edit1.Text); 

end;

Saludos.

camivy

15-07-2010 21:59:28

muchas gracias!!

Cflowers

19-07-2010 16:18:52

me tira error, no se que pasa

Casimiro Noteví

19-07-2010 17:11:14

Cita:

Empezado por Cflowers (Mensaje 370827)

me tira error, no se que pasa

Lo siento, la bola de cristal está averiada, no podemos adivinar hasta que esté reparada ;)

Por cierto, bienvenido a clubdelphi, te aconsejo que leas nuestra guía de estilo.

La franja horaria es GMT +2. Ahora son las 17:31:06.