Главная страницаОбратная связьКарта сайта

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

Оформил: 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;

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


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Найти количество вхождений подстроки в строку", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info