Foros Club Delphi - Meter variables en un MessageBox

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

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

- - Meter variables en un MessageBox (https://www.clubdelphi.com/foros/showthread.php?t=4351)

acrophet

13-10-2003 13:09:16

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.

marcoszorrilla

13-10-2003 15:34:04

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;

Un Saludo.

acrophet

13-10-2003 16:34:34

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

13-10-2003 17:02:56

Primero suma y luego moldea:

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

// Saludos

acrophet

13-10-2003 17:20:39

Ahora funciona perfectamente. Mil gracias!!

Rudi	13-10-2003 17:33:05

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;

La franja horaria es GMT +2. Ahora son las 21:33:41.