Столкнулся с ситлуацией оптимизации, и вместо того что бы создавать громоздкий код, засунул всё в стринглист, работает на ура, но цыкл уходит в бесконечность(даль прога не пашит), в чём может быть трабл
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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 ;
|
мож я что напутал с циклом
Код:
1 | for j1:= 0 to p . Count - 1 do
|
Просто подобная ситлуация была с циклом в listview, да и трасировку из-за сладого железа сделать не могу