VPF::Исключение данных из двух ListBox

ex3me0

Дата 17.1.2010, 10:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Знаю, что задача очень простая, но тем не менее мозги себе выношу уже 2й день

По сути дела: имеются 2 ListBox. Необходимо превести этот код до ума:

Код


  var i,j: integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do begin
    for j:=0 to ListBox2.Items.Count-1 do begin
       if listbox2.Items.Count<>0 then begin
          if ListBox1.Items.Strings[i] = ListBox2.Items.Strings[j] then begin
          ListBox2.Items.Delete(j);
          end;
       end;
     end;
  end;

Т.е. если строка из ListBox1 равна строке ListBox2, то последняя удаляется (исключение содержимого одного LB из другого)

Постоянно вываливается на чем-то типа: List index bounds (-12) и т.д.

Для теста использую след. значения:

Код


ListBox1:
123
321

ListBox2:
0
1
2
3
4
10
11
321
23
45
123
67
89

DarkProg

Дата 17.1.2010, 13:18 (ссылка)

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

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

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

Не используй цикл For у него когда изменяешь число элементов бывают проблемы

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

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

aidaid

Дата 17.1.2010, 14:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот так должно работать smile

Код


procedure TForm1.Button2Click(Sender: TObject);
  var i,j: integer;
begin
  ListBox2.MultiSelect := True;    // Устанавливаем множественное выделение в ListBox2
  for i:=0 to ListBox1.Items.Count-1 do
  begin
      for j:=0 to ListBox2.Items.Count-1 do
      begin
           if listbox2.Items.Count<>0 then
           begin
                if ListBox1.Items.Strings[i] = ListBox2.Items.Strings[j] then
                begin
                    ListBox2.Selected[j] := True; // Выделить строку
                end;
           end;
       end;
      ListBox2.DeleteSelected;  // Удалить выделенные строки
  end;
end;

Демо

Дата 17.1.2010, 17:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Цитата(ex3me0 @ 17.1.2010, 10:01

)

Постоянно вываливается на чем-то типа: List index bounds (-12) и т.д.

Достаточно поменять границы циклов:

Код


  for i:=ListBox1.Items.Count-1 downto 0  do
  begin
     for j:=ListBox2.Items.Count-1 downto 0 do 
     begin

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

ex3me0

Дата 18.1.2010, 15:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо =) Помогли оба варианта. Особенно понравилось нестандартно через мультселект =) smile

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