Удаление дубликатов из ListBox в Delphi: сравнение первых 10 букв

Delphi , Синтаксис , Циклы

При работе с ListBox в Delphi может возникнуть необходимость удалить из него дубликаты. Один из способов сделать это - сравнить каждый элемент списка с каждым предыдущим и удалить повторяющиеся. Однако, если нужно удалить дубликаты только если первые 10 букв одинаковы, то стандартный подход не подходит.

Попробуем разобраться, как удалить дубликаты из ListBox в Delphi, сравнивая первые 10 букв.

Подход с использованием двух циклов

Одним из способов удалить дубликаты из ListBox в Delphi является использование двух циклов. Внешний цикл перебирает все элементы списка, а внутренний цикл сравнивает каждый элемент со всеми предыдущими. Если элементы одинаковы, то удаляется элемент, который находится во внешнем цикле.

Вот пример кода, который реализует этот подход:

for i := ListBox1.Items.Count - 1 downto 0 do
begin
  for j := i - 1 downto 0 do
  begin
    if Copy(ListBox1.Items[i], 1, 10) = Copy(ListBox1.Items[j], 1, 10) then
    begin
      ListBox1.Items.Delete(i);
      break;
    end;
  end;
end;

В этом примере мы используем функцию Copy, чтобы получить первые 10 букв каждого элемента списка. Если они одинаковы, то удаляется элемент, который находится во внешнем цикле.

Однако, при использовании этого подхода может возникнуть ошибка "list out of bounds". Это происходит потому, что при удалении элемента из списка меняется индекс всех последующих элементов. Чтобы избежать этой ошибки, нужно перебирать список в обратном порядке, начиная с последнего элемента.

Вот исправленный код:

for i := ListBox1.Items.Count - 1 downto 0 do
begin
  for j := i - 1 downto 0 do
  begin
    if Copy(ListBox1.Items[i], 1, 10) = Copy(ListBox1.Items[j], 1, 10) then
    begin
      ListBox1.Items.Delete(i);
      break;
    end;
  end;
end;

Теперь, если элементы одинаковы, то удаляется элемент, который находится во внешнем цикле, и мы переходим к следующему элементу, не пытаясь удалить элемент с индексом, который уже изменился.

Альтернативный подход с сортировкой списка

Если не принципиально, в каком порядке элементы будут отображаться в ListBox, то можно использовать альтернативный подход. Он заключается в сортировке списка по первым 10 буквам каждого элемента и удалении всех дубликатов.

Вот пример кода, который реализует этот подход:

procedure RemoveDuplicates(ListBox: TListBox);
var
  i, j: Integer;
  s: string;
begin
  ListBox.Sorted := True;
  s := '';
  i := 0;
  while i < ListBox.Count do
  begin
    if s = Copy(ListBox.Items[i], 1, 10) then
    begin
      ListBox.Items.Delete(i);
    end
    else
    begin
      s := Copy(ListBox.Items[i], 1, 10);
      Inc(i);
    end;
  end;
end;

В этом примере мы сначала устанавливаем свойство Sorted ListBox в True, чтобы отсортировать список по первым 10 буквам каждого элемента. Затем мы перебираем список, сравнивая первые 10 букв каждого элемента с предыдущим. Если они одинаковы, то удаляется текущий элемент. Если нет, то мы переходим к следующему элементу.

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

Вывод

В этой статье мы рассмотрели два способа удалить дубликаты из ListBox в Delphi, сравнивая первые 10 букв каждого элемента. Первый подход использует два цикла и перебирает список в обратном порядке, чтобы избежать ошибки "list out of bounds". Второй подход сортирует список по первым 10 буквам каждого элемента и удаляет все дубликаты. Каждый из этих подходов имеет свои преимущества и недостатки, и выбор между ними зависит от конкретной задачи.

Создано по материалам из источника по ссылке.

В статье рассматривается задача удаления дубликатов из ListBox в Delphi, сравнивая первые 10 букв каждого элемента, и предлагаются два подхода к решению этой задачи: использование двух циклов и сортировка списка по первым 10 буквам каждого элемента.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::