Оптимизация работы с списками в Delphi: ускорение процесса очистки и фильтрации элементов ListBox

Delphi , Компоненты и Классы , Списки

Вопрос, поставленный перед нами, заключается в том, как ускорить процесс очистки списка элементов ListBox1, проверяя его на соответствие двум другим спискам: ListBox2 (слова, которые нужно удалить) и ListBox3 (обязательные слова, которые должны присутствовать для сохранения элемента в ListBox1). Представленный код для решения задачи работает медленно при большом объеме данных.

Проблема

Исходный код использует функции checknegative и ExistWordInString для проверки наличия слов в списке. Эти функции реализованы неэффективно, что приводит к замедлению работы программы при обработке больших списков.

Подтвержденный ответ

Для ускорения работы с элементами TListBox в Delphi, можно использовать следующие оптимизации:

1. Отключение перерисовки списка при изменении элементов. Это можно сделать с помощью методов BeginUpdate и EndUpdate:

ListBox1.Items.BeginUpdate;
try
  // Код для обработки элементов списка
finally
  ListBox1.Items.EndUpdate;
end;

1. Оптимизация функции ExistWordInString для прямого присваивания результата выражения:

function ExistWordInString(aString, aSearchString: string; aSearchOptions: TStringSearchOptions): Boolean;
var
  Size: Integer;
begin
  Size := Length(aString);
  Result := SearchBuf(PChar(aString), Size, 0, 0, aSearchString, aSearchOptions) <> Nil;
end;

1. Использование временного TStringList для хранения элементов ListBox, что может снизить нагрузку на прокси-класс, используемый для доступа к элементам списка через свойство Items.

Альтернативный ответ

Если после внесения этих изменений производительность все еще оставляет желать лучшего, рекомендуется использовать профайлер, например, Sampling Profiler, для анализа времени выполнения кода и выявления узких мест.

Пример кода

procedure TForm1.ClearListBoxItems(ListBox1, ListBox2, ListBox3: TListBox);
var
  TempList: TStringList;
  WordToExist, WordToRemove: string;
  Index: Integer;
begin
  TempList := TStringList.Create;
  try
    // Копирование элементов из ListBox1 в TempList
    for Index := 0 to ListBox1.Items.Count - 1 do
      TempList.Add(ListBox1.Items[Index]);

    // Очистка списка TempList на основе условий
    for Index := TempList.Count - 1 downto 0 do
    begin
      WordToExist := WordToExistInAny(ListBox3.Items.Strings, TempList[Index]);
      WordToRemove := WordToExistInAny(ListBox2.Items.Strings, TempList[Index], True);
      if (WordToExist) and not WordToRemove then
        TempList.Delete(Index);
    end;

    // Очистка и загрузка измененных данных обратно в ListBox1
    ListBox1.Items.Clear;
    ListBox1.Items.Assign(TempList);
  finally
    TempList.Free;
  end;
end;

function WordToExistInAny(List: TStrings; SearchString: string; RemoveWholeWord: Boolean = False): Boolean;
begin
  // Реализация функции поиска слова в списке, учитывающей целиком слово или часть строки
  // ...
end;

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

Заключение

При работе с большими объемами данных важно использовать эффективные алгоритмы и структуры данных. Приведенные выше оптимизации могут значительно ускорить процесс очистки и фильтрации элементов ListBox в Delphi.

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

Оптимизация работы с элементами списка в Delphi, ускорение процессов очистки и фильтрации данных в `ListBox`.

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

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

:: Главная :: Списки ::