Проверить наличие подстроки в строке

Автор: Kwant

function CheckSubStr(SubStr, MainStr: string): Boolean;
begin
  Result := False;
  if (Pos(SubStr, MainStr) = 0) = False then Result := True;
end;

Функция возвратит True, если в строке MainStr имеется подстрока SubStr.

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

Выкладываем на форму TEdit и TButton, затем кликаем два раза по выложенному Button1 и приводим к следующему виду:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckSubStr('тест', Edit1.Text) then
    ShowMessage('Подстрока найдена')
  else
    ShowMessage('Подстрока НЕ найдена');
end;

Если среди всего текста в TEdit'e будет фрагмент "тест", тогда по нажатию на кнопку появится соответствующее сообщение.

Просмотров: 7845

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.