Volcar dos listview en uno

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