Подписаться на RSS рассылку
Главная » Статьи по 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 будет фрагмент "тест", тогда по нажатию на кнопку появится соответствующее сообщение.

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

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

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