Fórum Conta SubString #191094

Function CountSubString(aString, aSubString: string; aCaseSensitive: boolean = False): integer;
// Create by Rafael M. Heise
// in 28/10/2003 (dd/mm/yyyy)
var
  count: integer;
begin
  if not aCaseSensitive then // if not use CaseSentive
  begin // all to upper
    aString := AnsiUpperCase(aString);
    aSubString := AnsiUpperCase(aSubString);
  end;
  count := 0;
  while Trim(aString) <> ´´ do // while text is not null
  begin
    if Pos(aSubstring,aString) > 0 then // if found sub-text in text
    begin
      Inc(count); // inc count
      Delete(aString,1,Pos(aSubString,aString) + Length(aSubString)); // delete text verified
    end
    else // if not found, clear text to exit
      aString := ´´;
  end;
  Result := count; // return count
end;