Meter variables en un MessageBox

[acrophet]

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.

[marcoszorrilla]

Aquí tienes un ejemplo:

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;

Un Saludo.

[acrophet]

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' ".
???¿¿??

[roman]

Primero suma y luego moldea:

PChar('Dar cita a '+edit3.text+'el día'+fecha)

// Saludos

[acrophet]

Ahora funciona perfectamente. Mil gracias!!

[Rudi]

otra forma es usar la función format, algo asi:

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;