Mostrar el contenido de una variable en un MessageBox

[tebre]

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

[dec]

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.

[tebre]

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;

[roman]

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

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

// Saludos

[dec]

Hola,

Chico, es imposible estar en todo.

[roman]

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

// Saludos

[tebre]

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

[dec]

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

[memoferprof]

Originally Posted by tebre

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

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

[Casimiro Noteví]

Originally Posted by memoferprof

..

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