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:


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í:


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



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í:


application.MessageBox(PChar('Los datos son:' + RecojeFolio[i] + ' '));


// Saludos

[dec]

Hola,

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

[roman]

Y por cierto que la declaración:


public
RecojeFolio: array[1..100] of String[50];


debería ser


public
RecogeFolio: array[1..100] of String[50];


:p

// 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... :rolleyes:

[memoferprof]

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

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

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

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