Подсчитать количество вхождений подстроки в строкеDelphi , Синтаксис , Текст и СтрокиПодсчитать количество вхождений подстроки в строке
Автор: RhinoFC { **** UBPFD *********** by delphibase.endimus.com **** >> Подсчитать количество вхождений подстроки в строке Понадобилось подсчитать количество вхождений подстроки в строку, вот и появилась эта функция. Возможно в ней и нет изюминки, но может кому и пригодится. Зависимости: System Автор: Дмитрий, bestonix@mail.ru, ICQ:155133146, Тольятти Copyright: Дмитрий Дата: 17 октября 2002 г. ***************************************************** } function CntRecurrences(substr, str: string): integer; var cnt, p: integer; begin cnt := 0; while str <> '' do begin p := Pos(substr, str); if p > 0 then inc(cnt) else p := 1; Delete(str, 1, (p + Length(substr) - 1)); end; Result := cnt; end; Статья Подсчитать количество вхождений подстроки в строке раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |