Правильный способ проверки существования строки в массиве на Pascal

Delphi , Синтаксис , Массивы

В языке программирования Pascal, в частности в среде разработки Delphi, существует несколько способов проверить, существует ли строка в массиве строк. Однако, стоит отметить, что прямой проверки с использованием оператора in в данном случае выполнить не удастся, так как он предназначен для работы с перечислениями, а не с массивами строк. Рассмотрим несколько методов, которые можно использовать для решения данной задачи.

Использование цикла

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

function StrInArray(const Value: string; const ArrayOfString: TArray<string>): Boolean;
var
  Loop: string;
begin
  for Loop in ArrayOfString do
  begin
    if Value = Loop then
    begin
      Result := True;
      Exit;
    end;
  end;
  Result := False;
end;

Пример использования функции:

var
  ExtString: string;
const
  Extensions: TArray<string> = ('.rar', '.zip', '.doc', '.jpg', '.gif');
begin
  if StrInArray(ExtString, Extensions) then
    // строка найдена в массиве
  else
    // строка не найдена в массиве
end;

Использование функций из System.StrUtils

Библиотека System.StrUtils содержит функции для работы со строками, в том числе IndexStr (case sensitive) и IndexText (case insensitive), которые могут быть использованы для поиска индекса строки в массиве.

var
  ExtString: string;
const
  Extensions: TArray<string> = ('.rar', '.zip', '.doc', '.jpg', '.gif');
begin
  if (IndexStr(ExtString, Extensions) <> -1) then
    // строка найдена в массиве
  else
    // строка не найдена в массиве
end;

Ссылка на документацию для IndexStr: Link to help in docwiki from embarcadero.

Использование TStringList

Также можно использовать класс TStringList для инициализации списка строк, а затем использовать метод IndexOf для проверки наличия строки в списке. Однако, этот подход может быть избыточным для небольших массивов.

var
  ExtString: string;
  ExtensionsList: TStringList;
begin
  ExtensionsList := TStringList.Create;
  try
    ExtensionsList.Text := '.rar'#10'.zip'#10'.doc'#10'.jpg'#10'.gif';
    if ExtensionsList.IndexOf(ExtString) <> -1 then
      // строка найдена в массиве
    else
      // строка не найдена в массиве
  finally
    ExtensionsList.Free;
  end;
end;

Заключение

Выбор метода зависит от конкретных задач и требований к программе. Для небольших массивов и простоты кода лучше использовать цикл или функции из System.StrUtils. Для более сложных задач, где требуется частое обращение к массиву, можно рассмотреть использование TStringList с учетом его возможностей по сортировке и поиску.

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

В контексте обсуждается несколько методов проверки наличия строки в массиве на языке программирования Pascal, с примерами использования циклов, функций из библиотеки `System.StrUtils` и класса `TStringList`.

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

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

:: Главная :: Массивы ::