FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Meter variables en un MessageBox
Hola, me gustaria saber como puedo introducir variables en el texto de un MessageBox. He probado con
MessageBox('texto'+variable+'texto','texto', MB_OK); pero no me funciona. Gracias. |
#2
|
||||
|
||||
Aquí tienes un ejemplo:
Código:
procedure TForm1.Button1Click(Sender: TObject); var Eleve:string; begin eleve:='¿Seguro que desea pasar el alumno histórico?'; Application.MessageBox(Pchar(Eleve),'Atención',mb_OkCancel + mb_IconQuestion); end;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
el problema que tengo es que al intentar meter el texto fijo + uno variable es cuando me falla, exactamente en este codigo:
application.messagebox ('Dar cita a '+Pchar(edit3.text)+'el día'+Pchar(fecha),'Confirmación', MB_yesno + mb_iconquestion) me da el error de incompatible types string and pchar pero el cursor se me queda a la altura de " 'Confirmación' ". ???¿¿?? |
#4
|
||||
|
||||
Primero suma y luego moldea:
PChar('Dar cita a '+edit3.text+'el día'+fecha) // Saludos |
#5
|
|||
|
|||
Ahora funciona perfectamente. Mil gracias!!
|
#6
|
|||
|
|||
otra forma es usar la función format, algo asi:
Código:
procedure TForm1.Button1Click(Sender: TObject); var fecha : string; const mensage ='Dar cita a %s el día %s'; begin fecha := datetostr(now); application.MessageBox (pchar(Format(mensage,[edit1.text, fecha])),'Confirmacion', MB_yesno + mb_iconquestion) end; |
|
|
|