Сравнить два TStringList - Общие вопросы Delphi - Страница 3

Аватар · 21.03.2016, 10:44

Удаление так сделать будет оптимальней

Код:

  for idx2:=SL2.Count-1 downto 0 do
    if SL1.IndexOf(SL2[idx2])<>-1 then SL2.Delete(idx2);

min@y™ · 21.03.2016, 10:51

Да, надо попробовать от конца в начало.

min@y™ · 21.03.2016, 13:43

Нашёл избыточность. Пришлось допилить TStringList.IndexOf().
При этом время преобразования сравнялось.

Не знаю, можно ли ещё оптимизировать. Попробуйте, кому интересно.

GoldenEagle88 · 01.02.2017, 04:46

Цитата:

Сообщение от min@y™

Нашёл избыточность. Пришлось допилить TStringList.IndexOf().
При этом время преобразования сравнялось.

Не знаю, можно ли ещё оптимизировать. Попробуйте, кому интересно.

спасибо)

21.03.2016, 10:44	#21
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Удаление так сделать будет оптимальней Код: `for idx2:=SL2.Count-1 downto 0 do if SL1.IndexOf(SL2[idx2])<>-1 then SL2.Delete(idx2);` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

21.03.2016, 10:51	#22
min@y™ Цифровой кот Старожил Регистрация: 29.08.2014 Сообщений: 7,629	Да, надо попробовать от конца в начало. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сравнить два списка	DozEL	Microsoft Office Excel	3	27.04.2015 13:14
Как сравнить два string?	demigod82	Общие вопросы C/C++	3	08.05.2012 23:07
Сравнить два файла	demiancz	Общие вопросы Delphi	22	16.02.2011 15:29
Сравнить два множества. Pascal	MaxMelnikov	Помощь студентам	3	16.03.2009 09:35
Сравнить два файла	Aleksandr	Microsoft Office Excel	6	07.10.2008 00:22