Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Исключение данных из двух ListBox

Автор: ex3me0 17.1.2010, 10:01

Знаю, что задача очень простая, но тем не менее мозги себе выношу уже 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

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

Автор: aidaid 17.1.2010, 14:36

Вот так должно работать 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

Цитата(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

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