Главная » Статьи по Delphi » Текст и строки » Проверить наличие подстроки в строке

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

Автор: 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 будет фрагмент "тест", тогда по нажатию на кнопку появится соответствующее сообщение.

• Эпилепсию можно искоренить здесь - в Центральной больнице РЖД.

  ckb-rzd.ru

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

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

0   (20.07.2010) 1. Алексей так попроще будет Result := not(Pos(SubStr, MainStr) = 0)

---

Имя *:
Email:
Все смайлы
Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга