Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-09-2006
Avatar de johurgi
johurgi johurgi is offline
Miembro
 
Registrado: jul 2006
Posts: 95
Poder: 18
johurgi Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 18-09-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
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
Responder Con Cita
  #3  
Antiguo 18-09-2006
Avatar de Spynosa
Spynosa Spynosa is offline
Miembro
 
Registrado: nov 2004
Ubicación: Ecija - Sevilla
Posts: 99
Poder: 20
Spynosa Va por buen camino
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;
Responder Con Cita
  #4  
Antiguo 18-09-2006
avmm2004 avmm2004 is offline
Miembro
 
Registrado: jun 2006
Ubicación: Santa cruz de Tenerife, Islas Canarias
Posts: 500
Poder: 18
avmm2004 Va por buen camino
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);
Responder Con Cita
  #5  
Antiguo 19-09-2006
Avatar de johurgi
johurgi johurgi is offline
Miembro
 
Registrado: jul 2006
Posts: 95
Poder: 18
johurgi Va por buen camino
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;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Messagebox jmlifi Varios 1 30-05-2005 13:25:00
Application.MessageBox !!! !3d1@n Varios 2 07-03-2005 21:22:20
Cachar <ESC> en MessageBox AGAG4 Varios 4 24-09-2004 20:18:24
Cerra MessageBox.... diegofhernando Varios 2 30-11-2003 01:22:03
MessageBox Michel Varios 3 19-08-2003 21:58:54


La franja horaria es GMT +2. Ahora son las 14:19:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi