Hola, mi código es este:
Código Delphi
[-]for i := 0 to lista3.Items.Count -1 do
begin
with lista3 do
begin
Selected := Items[i];
fila.Caption:= 'Fila: '+IntToStr(i)+' /'+items.item[i].caption;
n.Caption:= items.Item[i].SubItems[0] + ' '+ items.Item[i].SubItems[1]+
' '+ items.Item[i].SubItems[2] + ' '+ items.Item[i].SubItems[3]+
' '+items.Item[i].SubItems[4];
end;
for j := 0 to per.Items.Count -1 do
begin
stB.Panels.Items[2].Text:= '[C. '+IntToStr(i+1)+'],'+'[P. '+IntToStr(j+1)+']';
barra.Max:= lista3.Items.Count;
barra.Position:= i+1;
barra2.Max:= per.Items.Count;
barra2.Position:= j;
stB.Panels.Items[4].Text:= FormatFloat('0.00',(i * 100) / lista3.items.Count)+'%';
cad2 := per.Items.Strings[j];
if cad2 = n.Caption then
begin
with listaResumen2.Items.Add do
begin
inc(cinco);
caption:= lista3.Selected.Caption;
subitems[0]:= lista3.Items.Item[i].SubItems[0];
subitems[1]:= lista3.Items.Item[i].SubItems[1];
subitems[2]:= lista3.Items.Item[i].SubItems[2];
subitems[3]:= lista3.Items.Item[i].SubItems[3];
subitems[4]:= lista3.Items.Item[i].SubItems[4];
subitems[5]:= lista3.Items.Item[i].SubItems[5];
subitems[5]:= IntToStr(5);
subitems[6]:= IntToStr(cinco);
end;
end;
end;
Comparo cada item de per (cad2) con la etiqueta "n" ¿no debería funciionar? loo pregunto por que no lo hace.
Voy a probar tu código y te comento. Gracias.