Volcar dos listview en uno

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