Найти количество вхождений подстроки в строку

Delphi , Синтаксис , Текст и Строки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function CountPos(const subtext: string; Text: string): Integer;
 begin
   if (Length(subtext) = 0) or (Length(Text) = 0) or (Pos(subtext, Text) = 0) then
     Result := 0
   else
     Result := (Length(Text) - Length(StringReplace(Text, subtext, '', [rfReplaceAll]))) div
       Length(subtext);
 end;

Статья Найти количество вхождений подстроки в строку раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal.

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

:: Главная :: Текст и Строки ::