Convertir de ListBox a distintas cadenas de texto

[[egostar]]

Empezado por j_flores3000

Muchas gracias por todo lo comentado hasta ahora. Es que tengo que insertar en un quick report todos los items que haya en el listbox pero que sean en qrtext distintos. Por eso queria pasarlos a variables de texto y de ahi asignarlos a los qrtext ( En un quick report). Lo que me doy cuenta ahora es que puedo asignarlos desde los items.

Los items estan en un formulario y el quick report en otro. Es para hacer facturas y necesito poner los productos que compre en lineas total mente distintas se ve?

Bien el problema restante es que los items los voy agregando yo y a veces son 50 items o aveces 2 se ve??

Igualmente gracias por todo...

, olvidemos todo, rollback jejejeje

Salud OS

[j_flores3000]

Perdon pero no soy mujer o sea tengo j_flores3000 porque me llamo Juan Flores...mmm eso siempre fue un problema en el foro...jajajaja. Igualmente quisiera hacer un 2º llamado de atencion al que tiene la foto del guason ya que es la segunda vez que en varios post trata de retarme o no se que...yo solo estoy pidiendo ayuda si el no me la quiere brindar todo bien pero que no se alze mas. Si pudieramos superar nuestras diferencias con contra veneno seria bueno...igualmente sigo buscando la solucion a mi problema hice varias pruebas pero sigue sin salir!

[ContraVeneno]

a caray, no amigo, mi intensión no es causar polémicas ni levantones ni nada agresivo. Es que, a mi me dio la impresión de que estabas esperando que hiciéramos el código exactamente como tu lo pides y eso aquí no es bien visto. Vamos, que según lo que puso Dec, él tuvo la misma impresión, solo que lo puso con diferentes palabras.

En corto, con los ejemplos que ya habían puesto Caro y Dec, se hubiera solucionado tu planteamiento original y me pareció de "mal ver" que no te sintieras satisfecho con esas respuestas.

Ahora, el problema es, que faltó que desde un principio nos dieras los detalles que nos acabas de dar; si nos hubieras explicado desde un principio que era para hacer un reporte de una factura, las propuestas e ideas hubieran sido muy diferentes. Como ya dijo Egostar, ahora es necesario hacer un Rollback de todo.

Con los nuevos datos que nos propones, lo mejor es utilizar una base de datos, si no utilizas ninguna sería bueno que buscaras opciones para utilizarlas. Si no te interesan las bases de datos, yo te recomendaría que utilizaras una tabla en memoria (Las JEDI JVCL tienen un componente muy bueno llama TjvMemoryData); a esta tabla en memoria, le puedes insertar, eliminar, modificar todos los artículos que quieras y el QuickReport lo enlazas a esta tabla por medio de QRDBText. De esta forma, si son 2, 10, 500 artículos, el mismo QuickReport se encargará de acomodarlo.

En fin, que mi intensión no es ofender a nadie, simplemente expreso mi punto de vista. Te pido una disculpa si te pareci agresivo en este hilo o en algún otro.

[j_flores3000]

Empezado por ContraVeneno

a caray, no amigo, mi intensión no es causar polémicas ni levantones ni nada agresivo. Es que, a mi me dio la impresión de que estabas esperando que hiciéramos el código exactamente como tu lo pides y eso aquí no es bien visto. Vamos, que según lo que puso Dec, él tuvo la misma impresión, solo que lo puso con diferentes palabras.

En corto, con los ejemplos que ya habían puesto Caro y Dec, se hubiera solucionado tu planteamiento original y me pareció de "mal ver" que no te sintieras satisfecho con esas respuestas.

Ahora, el problema es, que faltó que desde un principio nos dieras los detalles que nos acabas de dar; si nos hubieras explicado desde un principio que era para hacer un reporte de una factura, las propuestas e ideas hubieran sido muy diferentes. Como ya dijo Egostar, ahora es necesario hacer un Rollback de todo.

Con los nuevos datos que nos propones, lo mejor es utilizar una base de datos, si no utilizas ninguna sería bueno que buscaras opciones para utilizarlas. Si no te interesan las bases de datos, yo te recomendaría que utilizaras una tabla en memoria (Las JEDI JVCL tienen un componente muy bueno llama TjvMemoryData); a esta tabla en memoria, le puedes insertar, eliminar, modificar todos los artículos que quieras y el QuickReport lo enlazas a esta tabla por medio de QRDBText. De esta forma, si son 2, 10, 500 artículos, el mismo QuickReport se encargará de acomodarlo.

En fin, que mi intensión no es ofender a nadie, simplemente expreso mi punto de vista. Te pido una disculpa si te pareci agresivo en este hilo o en algún otro.

Ok Contra Veneno, disculpas aceptadas. Disculpame a mi tambien por mis enojos!

[*Caro*]

Empezado por j_flores3000

Muchas gracias por todo lo comentado hasta ahora. Es que tengo que insertar en un quick report todos los items que haya en el listbox pero que sean en qrtext distintos. Por eso queria pasarlos a variables de texto y de ahi asignarlos a los qrtext ( En un quick report). Lo que me doy cuenta ahora es que puedo asignarlos desde los items.

Los items estan en un formulario y el quick report en otro. Es para hacer facturas y necesito poner los productos que compre en lineas total mente distintas se ve?

Bien el problema restante es que los items los voy agregando yo y a veces son 50 items o aveces 2 se ve??

Empezado por j_flores3000

...igualmente sigo buscando la solucion a mi problema hice varias pruebas pero sigue sin salir!

Hola de nuevo, esos eran los detalle que te pedíamos para poder ayudarte mejor y ver otras alternativas en vez de pasarlos a variables.
´
Volviendo a tu pregunta, para pasar los items del ListBox a tu QuickReport lo puedes hacer de la siguiente forma:

Necesitas utilizar el evento OnNeedData de tu QuickReport, colocas una banda con BandType rbDetail y ahí dentro un qrLabel.

Código Delphi [-]
    Indice : Integer;
.................
.................
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 MoreData := Indice <= FormListBox.ListBox1.Count-1;
 if MoreData then
  qrLabel1.Caption :=  FormListBox.ListBox1.Items[Indice];
 Inc(Indice);
end;
 
//Inicializamos nuestra variable indice
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
 Indice := 0;
end;

Pero deberías considerar utilizar una base de datos.

Saluditos

[[coso]]

Muchas gracias por todo lo comentado hasta ahora. Es que tengo que insertar en un quick report todos los items que haya en el listbox pero que sean en qrtext distintos. Por eso queria pasarlos a variables de texto y de ahi asignarlos a los qrtext ( En un quick report). Lo que me doy cuenta ahora es que puedo asignarlos desde los items.

Los items estan en un formulario y el quick report en otro. Es para hacer facturas y necesito poner los productos que compre en lineas total mente distintas se ve?

Bien el problema restante es que los items los voy agregando yo y a veces son 50 items o aveces 2 se ve??

Igualmente gracias por todo...

Hola, para hacer lo que pides, podrias usar algo como esto

Código Delphi [-]
   for i := 0 to Listbox1.Items.Count - 1 do          
  (formdelosreports.FindComponent('qrlabel'+inttostr(i)) as  TQRLabel).Caption := Listbox1.Items[i];

suponiendo que los diferentes qrlabel ya existan en el momento de ejecución, si no deberias crearlos e ir colocandolos uno a uno. Ahora bien, el quick report tiene una banda, llamada detail band, que sirve precisamente para hacer lo que estas intentando hacer 'a mano', usando el evento OnNeedData y, si usas bases de datos, los QRDBText. Busca en el foro y en los propios ejemplos de Delphi y verás que te ahorras faena. Saludos.

PD: nada, repitiendo lo dicho por los colegas del club en esta segunda pagina de posts