ayuda!! soy nueva en esto!

[camivy]

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 jperez@gmail.com

muchas gracias!

[ecfisa]

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:

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 Notevi]

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]

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

[ecfisa]

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:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
   ShowMessage(NombreEmail(Edit1.Text));
end;

En OnClick de un TButton:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:= NombreEmail(Edit1.Text); 
end;

Saludos.

[camivy]

muchas gracias!!

[Cflowers]

me tira error, no se que pasa

[Casimiro Notevi]

Empezado por Cflowers

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.