[bulldog]

Столкнулся с ситлуацией оптимизации, и вместо того что бы создавать громоздкий код, засунул всё в стринглист, работает на ура, но цыкл уходит в бесконечность(даль прога не пашит), в чём может быть трабл

Код:

var  i, j, j1: integer;
p:TStringList;
begin
p := TStringList.Create;
///лишние добавления убраны
p.Add('букашка');
begin
for j:= Listview1.Items[0].SubItems.Count-1 downto 0 do
for j1:= 0 to p.Count - 1 do
if pos(p[j1], ListView1.Items[0].SubItems.Strings[j]) > 0 then
begin
//что-то делаем
end;
end;
end;

мож я что напутал с циклом

Код:

for j1:= 0 to p.Count - 1 do

Просто подобная ситлуация была с циклом в listview, да и трасировку из-за сладого железа сделать не могу