barra.Max := lista3.Items.Count;
barra2.Max := per.Items.Count;
for i := 0 to lista3.Items.Count -1 do
begin
with lista3 do
begin
Selected := Items[i];
cad1 := 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;
barra.Position := i + 1;
stB.Panels.Items[4].Text := FormatFloat('0.00',(i * 100) / lista3.items.Count)+'%';
for j := 0 to per.Items.Count -1 do
begin
stB.Panels.Items[2].Text := '[C. '+IntToStr(i+1)+'],'+'[P. '+IntToStr(j+1)+']';
barra2.Position := j;
cad2 := per.Items.Strings[j];
if cad2 = cad1 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;
end;