Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.05.2011, 17:02
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию ПОиск через стринглист

Столкнулся с ситлуацией оптимизации, и вместо того что бы создавать громоздкий код, засунул всё в стринглист, работает на ура, но цыкл уходит в бесконечность(даль прога не пашит), в чём может быть трабл
Код:
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, да и трасировку из-за сладого железа сделать не могу
Ответить с цитированием
  #2  
Старый 10.05.2011, 17:05
Raskolnikov Raskolnikov вне форума
Прохожий
 
Регистрация: 20.04.2011
Адрес: Киров
Сообщения: 35
Версия Delphi: 7 Enterprise
Репутация: 148
По умолчанию

А ты в списке p случайно не изменяешь количество строк? Например, если в него добавляется строка, то цикл не завершится никогда.
Ответить с цитированием
  #3  
Старый 10.05.2011, 17:08
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию

Добавление в него происходит перед циклом
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:57.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025