Содержится ли строка в списке

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

Автор: Сергей
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Функция возвращает true если сторока st содержится в списке строк Stlist

Возвращает true если сторока st содержится в списке строк Stlist

Зависимости: ???
Автор:       Сергей, nfkazak@inbox.ru, Краснодар
Copyright:   VIP BANK
Дата:        11 сентября 2002 г.
***************************************************** }

function ListContained(st: string; StList: TStrings): boolean;
var
  i: longint;
begin
  result := false;
  for i := 0 to StList.Count - 1 do
    if St = StList.Strings[i] then
    begin
      result := true;
      break
    end
end;

Привет! Я переведу контент на русский язык.

Функция ListContained в Delphi проверяет, существует ли заданная строка st в списке строк StList.

Разбивка функции:

1. Функция принимает два параметра: st (строка) и StList (TStrings, коллекция строк).
2. Функция инициализирует булевую переменную result в значение false.
3. Затем она проходит по каждому элементу в списке StList с помощью цикла for.
4. Для каждого элемента она проверяет, совпадает ли текущий элемент с заданной строкой st. Если они совпадают, она устанавливает result в значение true и выходит из цикла.
5. После завершения цикла функция возвращает значение result, которое указывает, был ли найден строковый элемент в списке или нет.

Функция quite проста и прямолинейна. Однако есть несколько потенциальных проблем:

• Цикл iterates over каждый элемент в списке с помощью целочисленного индекса (i). Это может быть неэффективно, если список очень большой.
• Сравнение между st и StList.Strings[i] использует оператор =, который выполняет сравнение с учетом регистра. Если вам нужно выполнить сравнение без учета регистра, вам может потребоваться другой подход.

Альтернативное решение, использующее метод Contains объекта TStrings:

function ListContained(St: string; StList: TStrings): boolean;
begin
  result := StList.Contains(St);
end;

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

Обратите внимание, что это альтернативное решение предполагает, что вам нужно выполнить сравнение с учетом регистра. Если вам нужно выполнить сравнение без учета регистра, вы можете использовать метод ContainsText вместо Contains:

function ListContained(St: string; StList: TStrings): boolean;
begin
  result := StList.ContainsText(St);
end;

Надеюсь, это поможет! Пожалуйста, если у вас есть какие-либо дальнейшие вопросы.

Функция ListContained возвращает true, если строка st содержится в списке строк Stlist.

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

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

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