ПОиск через стринглист

[bulldog5293]

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

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;

[Человек_Борща]

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
begin
for j1:= 0 to p.Count - 1 do
begin
if pos(p[j1], ListView1.Items[0].SubItems.Strings[j]) > 0 then
begin
//что-то делаем
end;
end;
end;

[bulldog5293]

тож не работает

[Аватар]

Попробуйте так

if pos(AnsiUpperCase(p[j1]), AnsiUpperCase(ListView1.Items[0].SubItems.Strings[j])) > 0 then

[bulldog5293]

спс, за пример, но у меня всё прикрастно работает, просто по завершению цикла не продолжается работа программы

[bulldog5293]

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

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

Просто подобная ситлуация была с циклом в listview

[Аватар]

Делайте пошаговую трассировку и ловите где зацикливает

[bulldog5293]

Делайте пошаговую трассировку и ловите где зацикливает

Была бы возможность, с радостью бы сделал, низкие характиристики железа не позволяют из-за этого и забил вопрос