VPF::Удаление из одного списка элементов другого

PsiMagistr

Дата 13.1.2011, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Ребята, проблема такая.

Есть два списка SpellList и SpellList2. Из первого надо удалить все элементы второго...

Приведенный ниже код работает, но только до тех пор, пока не приходится удалять все элементы.

А почему так происходит, не разобрался.

Код


for i := SpellList.Count-1 downto 0  do
for i2 := 0 to SpellList2.Count-1 do
 if SpellList.Items.Strings[i] = SpellList2.Items.Strings[i2] then
 begin
 SpellList.Items.Delete(i);
 end;

Это сообщение отредактировал(а) PsiMagistr - 13.1.2011, 11:09

--------------------

"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

(с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.

morpheyushka

Дата 13.1.2011, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

недочитал

Это сообщение отредактировал(а) morpheyushka - 13.1.2011, 11:50

--------------------

Спасибо делается вот так!!!

PsiMagistr

Дата 13.1.2011, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Благодарю, но ответ не верен. Удаляются элементы только с одного списка. А там и так стоит downto

Это сообщение отредактировал(а) PsiMagistr - 13.1.2011, 11:58

--------------------

Snowy

Дата 13.1.2011, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Убери второй цикл вообще.
Проверяй нахождение строки через IndexOf.
Иначе, после удаления, ты начинаешь сравнивать строки с убитым элементом.

Добавлено через 50 секунд
Ну или просто добавь Break после delete.
Но лучше переделай на IndexOf - это быстрее.

PsiMagistr

Дата 13.1.2011, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Snowy, Это интересно. Что есть IndexOf Я совсем не в курсе.

--------------------

Snowy

Дата 13.1.2011, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Код

  for i := SpellList.Count-1 downto 0  do
  begin
    i2 := SpellList2.IndexOf(SpellList[i]);
    if i2 >= 0 then SpellList.Delete(i);
  end;

Добавлено через 38 секунд
IndexOf - возвращает номер строки в Tstrings, либо -1, если такой строки там нет.

PsiMagistr

Дата 13.1.2011, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Snowy, Это интересно. Что есть IndexOf Я совсем не в курсе.

Добавлено через 32 секунды
Спасибо, добрый человек!

--------------------

PsiMagistr

Дата 13.1.2011, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Snowy, с Вашего разрешения немного подправил код:

Код


for i := SpellList.Count-1 downto 0  do
begin
i2 := SpellList2.Items.IndexOf(SpellList.Items.Strings[i]);
if i2 >= 0 then SpellList.Items.Delete(i);
end;

Огромный Вам сенкс! А то я уже злой был!

--------------------

superVad

Дата 13.1.2011, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

А не все нормально smile

Это сообщение отредактировал(а) superVad - 13.1.2011, 16:27

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »