Volcar dos listview en uno

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