문자열에서 특정 단어가 몇번 들어갔는지 체크하는 함수

문자열에서 특정 단어가 몇번 들어갔는지 체크하는 함수

 

 

uses strutils;

 

function countword(const source, wordstr : string; index : integer = 1):integer;

var

 i, lensource : integer;
begin
 result := 0;
 lensource := length(source);
 i := index;                     // 일정 인덱스 이후의 문자를 검색.
 while i<=lensource do begin
   i := posex(wordstr,source,i);
   if i>0 then inc(result) else break;
   inc(i);
 end;
end;