Foros Club Delphi - MessageBox

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

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

- - MessageBox (https://www.clubdelphi.com/foros/showthread.php?t=35685)

johurgi

18-09-2006 16:59:08

MessageBox

hola a tod@s.

Me gustaria que alguien me dijera como puedo montar un string y pasarselo a un application.messagebox ya que de la forma que yo se lo paso me da error de incompatibilidad de tipos.

El codigo que yo tengo es el siguiente:

Código Delphi [-]var
   frase:string
begin
   frase:='el numero total de registros es ' +inttostr(table1.recordcount)+' registros';
Application.MessageBox(frase,'AVISO',MB_OK);
end;

Gracias de antemano.

Caral

18-09-2006 17:30:55

Hola
No entiendo porque usar una variable en esto?
Particularmente lo haria asi:

Código Delphi [-]MessageDlg('el numero total de registros es '+inttostr(table1.recordcount)+' registros' ,mtConfirmation,[mbYes,mbNo],0) = mrYes

Y defino la posibilidad de que sea verdadero o falso como en este mensaje si amerita una respuesta, te da la opcion, de lo contrario solo das la opcion MbYes, eso es todo.
Ojala te sirva
Saludos

Spynosa

18-09-2006 17:33:31

prueba así

Código Delphi [-]var
   frase:string
begin
   frase:='el numero total de registros es ' +inttostr(table1.recordcount)+' registros';
Application.MessageBox(pchar(frase),'AVISO',MB_OK);
end;

avmm2004

18-09-2006 17:34:13

El unico problema que tienes es que el messagebox requiere com parámetros Pchar.
Por lo tanto, de la siguiente forma finciona:

Código Delphi [-] 
    Application.MessageBox(Pchar(frase),Pchar('AVISO'),MB_OK);

johurgi

19-09-2006 09:34:14

solucion

Gracias por las soluciones, al final lo resolvi de la siguiente forma:

Código Delphi [-]var
   frase:string;
   mensaje:array[0...255] of char;
begin
   frase:='el numero total de registros es ' +inttostr(table1.recordcount)+' registros';
   strpcopy(mensaje,frase);
   Application.MessageBox(mensaje,'AVISO',MB_OK);
end;

La franja horaria es GMT +2. Ahora son las 07:51:15.