FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 jperez@gmail.com
muchas gracias! |
#2
|
||||
|
||||
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.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 15-07-2010 a las 05:27:50. |
#3
|
||||
|
||||
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" |
#4
|
|||
|
|||
muchas gracias!!!
el codigo tendria qu ponerlo en el edit? |
#5
|
||||
|
||||
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; Código:
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:= NombreEmail(Edit1.Text); end;
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
|||
|
|||
muchas gracias!!
|
#7
|
|||
|
|||
me tira error, no se que pasa
|
#8
|
||||
|
||||
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. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Nueva Ayuda | tamar | Firebird e Interbase | 3 | 16-08-2006 22:39:03 |
Hola soy muy nueva en esto de las bases de datos y deseo imprimir tablas | nuri | Impresión | 1 | 05-07-2005 19:49:31 |
Ayuda con esto | @-Soft | Varios | 4 | 07-03-2005 13:43:15 |
Necesito Nueva Ayuda | DiegoX | Varios | 4 | 08-12-2004 18:12:03 |
|