Mostrar el contenido de una variable en un MessageBox
 

una consulta rapida..quiero imprimir en messagebox....el valor de una variable.pero no se como es la instruccion..

asi lo tengo:

Código Delphi [-]
 
for  i := 1 to band do
 begin
   application.MessageBox('Los datos son:' + RecojeFolio[i] + '  ');
 end;

espero me ayuden...

Hola,

Creo que tienes que puedes/debes hacer algo así:

Código Delphi [-]
application.MessageBox('Los datos son:' + PChar(RecojeFolio[i]) + '  ');

PD. Titula tus hilos de una forma más descriptiva, por favor: ayuda a las búsquedas en los foros.

no quedo
 

me marca un error de invalid typecast....te muestro como lo tengo declarado

Código Delphi [-]
 
 public
        RecojeFolio : array[1..100] of String[50];
 
//declarado arriba
 
 
procedure TFrmDetalleSolicitudAutorizada.BtnSolicitudClick(Sender: TObject);
var
i:integer;
begin
 for  i := 1 to band do
 begin
   application.MessageBox('Los datos son:' + PChar(RecojeFolio[i]) + '  ');
 end;
 end;

Creo que más bien sería así:

Código Delphi [-]
application.MessageBox(PChar('Los datos son:' + RecojeFolio[i] + '  '));

// Saludos

Hola,

Chico, es imposible estar en todo. :D :D :D

Y por cierto que la declaración:

Código Delphi [-]
public
    RecojeFolio: array[1..100] of String[50];

debería ser

Código Delphi [-]
public
    RecogeFolio: array[1..100] of String[50];

:p

// Saludos

nada
 

me sigue mostrando el mismo error.....qeu hago?

Hola,

Parece que el método "MessageBox" requiere más parámetros... concretamente, un segundo, que sería el "Caption" del cuadro de diálogo, del mensaje, y, opcionalmente, una o varias "banderas", cuya funcionalidad tendrías que mirar a ver. Eso en lo que toca a Delphi 2009. Pero, entonces no deberías obtener exactamente el mismo error... :rolleyes:

pues a mi me funciono a la primera y asi lo puse

Código Delphi [-]
Querycuenta.SQL.Clear;
               Querycuenta.SQL.Add('select g.id_giro, g.giro, r.id_ramo, r.ramo from giro g, ramo r where g.id_ramo = r.id_ramo and giro = :cuantosr');
               Querycuenta.ParamByName('cuantosr').AsString := RzEditAgGiro.Text;
               Querycuenta.Open;
               vramo := Querycuenta.FieldByName('ramo').AsString;
               Application.MessageBox(PChar('Ya existe el Giro, pertenece al ramo : ' + vramo),'Error de Captura');

Ojala les sirva a mas aprendices como yo

Después de 4 años, es posible que ya lo haya solucionado ;)