microbiano
13-10-2010, 01:32:13
hola encotre en el foro este codigo que al parecer imprime el contenido de un TStringGrid.
ItemIndex := 1;
if ItemIndex < STgrid.RowCount then begin
QRLabel1.Caption := STgrid.Cells[0,ItemIndex];
QRLabel2.Caption := STgrid.Cells[0,ItemIndex];
QRLabel3.Caption := STgrid.Cells[0,ItemIndex];
end;
Inc(ItemIndex);
MoreData := ItemIndex <= STgrid.RowCount;
pues bien resulta que ya lo puse en un boton pero no funciona de plano no me arroja ningun eror, ni mensaje, y para variar no me muestra el reporte jejeje.
de antemano muchas gracias por que creo que ultimamente me he vuelto muy pregunto jejeje pero eso indica que se debe a que estoy trabjando en lo que me gusta ;-)
ItemIndex := 1;
if ItemIndex < STgrid.RowCount then begin
QRLabel1.Caption := STgrid.Cells[0,ItemIndex];
QRLabel2.Caption := STgrid.Cells[0,ItemIndex];
QRLabel3.Caption := STgrid.Cells[0,ItemIndex];
end;
Inc(ItemIndex);
MoreData := ItemIndex <= STgrid.RowCount;
pues bien resulta que ya lo puse en un boton pero no funciona de plano no me arroja ningun eror, ni mensaje, y para variar no me muestra el reporte jejeje.
de antemano muchas gracias por que creo que ultimamente me he vuelto muy pregunto jejeje pero eso indica que se debe a que estoy trabjando en lo que me gusta ;-)