MessageBox

[johurgi]

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]]

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]

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]

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]

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;