Hola, tengo el siguiente código:
Código Delphi
[-]
for i:= 0 to lista3.Items.Count -1 do
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;
lista3.Selected:= lista3.Items[i];
stB.Panels.Items[4].Text:= FormatFloat('0.00',(i*100)/lista3.items.Count)+'%';
cad1:= lista3.Items.Item[i].SubItems[0] +
' '+ lista3.Items.Item[i].SubItems[1]+' '+lista3.Items.Item[i].SubItems[2]+
' '+ lista3.Items.Item[i].SubItems[3] +' '+lista3.Items.Item[i].SubItems[4];
cad2:= per.Items.Strings[j];
if cad2 = cad1 then
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;
Desde mi punto de vista, si se da la condición y cad2 = cad1, en la lista 3 se almacernará x valores. El problema es que es un proceso muy largo y que puede que no siempre se de esa condicion por lo que no puedo saber si realmente hará lo que debe. Por eso, si no es mucho pedir ¿según vosotros ese código es correcto?
Un saludo y gracias.