Volcar dos listview en uno

[danielmj]

Hola de nuevo,

he estado mirando tu codigo ecfisa, y siendo honesto, no termino de pillar el hilo, la verdad me cuesta entender como funcionan los listview, tendré que dedicarle mas tiempo. De todos modos, creo que no me explique bien en cuanto al formato con el que quiero que salga, te lo puse en forma de listado cuando en realidad sería algo así:

[REF|NOMBRE|APELLIDOS|...PRECIO UNIDAD|CANTIDAD|SUBTOTAL|TOTAL
123 |LUIS  |MARTINEZ |...  2,34€  |   1   |  2,35€ | 2,35€

He intentado hacerlo yo, pero como te digo mas arriba me cuesta pillar el funcionamiento de este control listview. Mañana si tengo un hueco miraré algunos libros a ver si me aclaro algo.
Por otra parte, estoy pensando en usar una base de datos, por que todo sería mas sencillo y lo manejo mejor, aunque eso me deja cierto regusto a derrota por no haberlo podido hacer con listview. Así que en este punto no sé muy bien si abandonar la idea de las listas y usar las bases de datos o seguir insistiendo.

En fin, un saludo y gracias.

[danielmj]

Vuelta a la carga,

Sigo insistiendo con los listview y siguen sin salirme, he modificado un poco tu codigo para usarlo en un ejemplo nuevo ecfisa, ¿podriais indicarme sobre los comentarios en el código donde cometo el error?

Código Delphi [-]
procedure JoinListViews(LV1, LV2, LV3: TListView);
var
  i,j: Integer;
  li: TListItem;
begin
  for j:= 0 to 6 do
  begin
    LV3.Columns.Add;
    LV3.Column[j].Width:= 60;
  end;
  LV3.Column[1].Caption:= 'REF';
  LV3.Column[2].Caption:= 'NOMBRE';
  LV3.Column[3].Caption:= 'APELLIDOS';
  LV3.Column[4].Caption:= 'LOCALIDAD';
  LV3.Column[5].Caption:= 'PROVINCIA';
  LV3.Column[6].Caption:= 'TLF';



  for j:= 0 to LV1.Items.Count-1 do  //cuenta los elementos de la lista NO las columnas ¿correcto?
  begin
    for i:= 0 to LV1.Columns.Count-2 do  //cuenta las columnas ¿correcto?
    begin
      li:= LV3.Items.Add;
      li.SubItems.Add(LV1.Items.Item[j].Caption);  //ESTA LINEA ES LA REFERENCIA EN LA LISTA1
      li.SubItems.Add(lv1.Items.Item[i].SubItems.Strings[j]); // CON ESTA LINEA INTENTO AGREGAR EL CONTENIDO DE-
      //LA FILA 1, COLUMNA 2 DE LISTVIEW1 en la misma posicion pero del listview3 ¿POR QUE NO ESTÁ BIEN? ¿DONDE COMETO EL ERROR?
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  JoinListViews(ListView1, ListView2, ListView3);
end;

Ya no es tanto por el proyecto en si, sino por comprender como funciona este maldito control.
Un saludo.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...la verdad me cuesta entender como funcionan los ListView...ya no es tanto por el proyecto en si, sino por comprender como funciona...

Revisa esta información:

1-Mostrando información en un ListView (I)

2-Mostrando información en un ListView (II)

3-Mostrando información en un ListView (y III)

Espero sea útil

Nelson.

[ecfisa]

Hola Daniel.

Empezado por danielmj

...
Ya no es tanto por el proyecto en si, sino por comprender como funciona este maldito control.
Un saludo.

Perdón por demorar en responder , pero estos días ando medio complicado...

Código Delphi [-]
 for j:= 0 to LV1.Items.Count-1 do  //cuenta los elementos de la lista NO las columnas ¿correcto?
  begin
    for i:= 0 to LV1.Columns.Count-2 do  //cuenta las columnas ¿correcto?

Es correcto.

... Así que en este punto no sé muy bien si abandonar la idea de las listas y usar las bases de datos o seguir insistiendo.

Si preguntas mi opinión, usaría base de datos sin dudarlo.

aunque eso me deja cierto regusto a derrota por no haberlo podido hacer con listview.

Intentaremos que eso no suceda

Los problemas que encuentras pueden deberse a si consideras el item como un elemento más o no. Para el ejemplo almaceno los elementos en los subitems descartando los ítems:

[-]-+ 
    |
    + Valor 1
    |
    + Valor 2
    |
    + ...
    |
    + Valor N

Según entendí, no buscabas encolumnarlos uno debajo del otro sino aparejarlos, entonces podrías hacer:
(Espero que el código comentado te clarifique las acciones)

Código Delphi [-]
procedure JoinListViews(LV1,LV2,LV3: TListView);
var
  c,r: Integer;
  li: TListItem;
begin
  // Crear las columnas necesarias en LV3 para contener LV1 y LV2 
  for r:= 0 to LV1.Columns.Count + LV2.Columns.Count - 2 do
  begin
    LV3.Columns.Add;
    if r = 0 then
      LV3.Column[r].Width:= 0 // No utilizo la columna 0
    else
      LV3.Column[r].Width:= 100;
  end;
  // Copiar los títulos
  for r:= 0 to LV1.Columns.Count-1 do
    LV3.Column[r].Caption:= LV1.Column[r].Caption;
  for r:= 1 to LV2.Columns.Count-1 do
    LV3.Column[-1+LV1.Columns.Count+r].Caption:= LV2.Column[r].Caption;

  // Agregar los items
  for r:= 0 to LV1.Items.Count+LV2.Items.Count-4 do
  begin
    // Crear una fila
    li:= LV3.Items.Add;
    // Copiar los items de LV1 como subitems
    for c:= 0 to LV1.Columns.Count-2 do
      li.SubItems.Add(LV1.Items[r].SubItems[c]);
    // Copiar los items de LV2 como subitems
    for c:= 0 to LV2.Columns.Count-2 do
      li.SubItems.Add(LV2.Items[r].SubItems[c]);
  end;
end;

procedure TForm1.btnJoinClick(Sender: TObject);
begin
  JoinListViews(ListView1, ListView2, ListView3);
end;

Con este resultado, que creo, es el que buscas:



Saludos

[danielmj]

hola ecfisa,

estoy ahora mismo con tu codigo, he copiado y pegado directamente, y no funciona ( y no entiendo por qué si has puesto una captura del programa funcionando), solo me copia los titulos de las columnas pero no el contenido de estas.
Estoy usando lazarus para el "ejercicio" (por si sirve de algo que lo comente).

Dicho lo anterior, y leyendo tu codigo tengo algunas dudas, a saber:

Código Delphi [-]
for r:= 1 to LV2.Columns.Count-1 do
    LV3.Column[-1+LV1.Columns.Count+r].Caption:= LV2.Column[r].Caption;

¿por que ese "-1"? ¿es por la columna 0?

Código Delphi [-]
// Agregar los items
  for r:= 0 to LV1.Items.Count+LV2.Items.Count-4 do

¿por que "count -4? he probado a cambiarlo por -2, -1... y es cierto que da error, pero ¿ese -4 es para no contar las dos columnas 0 de cada una de las listas (1 y 2)?



Como puedes ver, solo copia la cabecera de las columnas pero no su contenido y he copiado y pegado tu codigo como dije antes.

En fin, sigo con esto, por cierto he mirado algunos manuales/libros (delphi al limite, la biblia de delphi, la cara oculta... de ian marteens, etc pero no consigo aclararme)

Por cierto, buscando informacion en la web encontré esto (por si le sirve a alguien): http://delphi.about.com/od/tlistview/


Un saludo y gracias.

[danielmj]

Hola nlsgarcia,

Gracias por los enlaces, ya los habia mirado, pero no explica un caso como el mio, de meter el concatenar dos listas (columnas y sus subitems)

un saludo.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...los enlaces, ya los había mirado, pero no explica un caso como el mio, de meter el concatenar dos listas...

La idea de los enlaces sugeridos en el Msg #8, es brindar la base conceptual del uso del componente TListView y que esta sea aplicada a cualquier caso particular, lo anterior es análogo a toda la teoría asociada a Delphi y por extensión a cualquier lenguaje de programación

Nelson.

[ecfisa]

Hola Daniel.

Empezado por danielmj

hola ecfisa,
estoy ahora mismo con tu codigo, he copiado y pegado directamente, y no funciona ( y no entiendo por qué si has puesto una captura del programa funcionando), solo me copia los titulos de las columnas pero no el contenido de estas.
...

Sinceramente yo tampoco lo entiendo. Pero te adjunto los fuentes del código funcionando en Lazarus, a ver si te sirve de guía.



(No soy experto en Lazarus, si llega a faltar algún archivo por favor avisame)

Saludos

[danielmj]

hola ecfisa,

Sigo con esto y no me funciona, copio y pego tal cual está tu codigo y hace un volcado extraño, desordenado e incompleto. Este es el enlace para que lo veas por ti mismo: http://terawiki.clubdelphi.com/Delph...oad=ecfisa.zip .

No sé si debo subir este tipo de archivos al FTP, así que disculpad si no está para eso y si es necesario pues que algun admnistrador lo borre. Intenté ponerlo a pie del mensaje pero no sé como se hace.

En fin, cuando lo abras veras que solo carga la primera fila de cada una de las listas.

[danielmj]

Buenas,

Ya tengo solucionado esto (creo), lo que pasaba es que en la linea:

Código Delphi [-]
for r:= 0 to LV1.Items.Count+LV2.Items.Count-4 do

El "-4" solo me sirve segun el numero de filas que tengan las listas, pero si tiene mas de 3 por ejemplo, da error, en el sentido de no agregar correctamente los datos. Lo que he hecho escambiar la linea por esto otro:

Código Delphi [-]
cant:= lv1.Items.Count +1; // CALCULA EL NUMERO DE FILAS DE LA LISTA Y LE SUMA "1" EJEMPLO: 4 FILAS + 1 = 5 FILAS   
// Agregar los items 
for r:= 0 to LV1.Items.Count+LV2.Items.Count -cant do

Bueno, ya todo esto esta corriendo bien, ahora tengo que sonseguir escribir todo el codigo por mi mismo, sin pedir ayuda constantemente

Gracias por la ayuda y un saludo.