Подсчитать количество определенных слов в тексте

[vadimmmm]

Помогите, хочу посчитать количество определенных слов в тексте например "какой" и потом вывести их количество

[Poma][a]

Можно так.. Не проверял..

function PosWrd(substr, s : string) : Integer;
var
     t : Integer;
begin
         t := Pos(substr, s);
         if t > 0 then
              PosWrd := 1 + PosWrd(substr, Copy(s, t+1, Length(s)))
         else
              PosWrd := 0
end;

UPDATE шушуть поправил

[vadimmmm]

немного не понял, а прога ищет количество S?

[Poma][a]

Не..
s - где ищем
substr - что ищем..

[Аватар]

Этим кодом ищется не слово, а сочетание символов в тексте
1. В предложении Как стать макакой слово какой найдется 1 раз, но его там нет
2. В предложении Какой я плохой слово какой найдется 0 раз, но оно там есть

[Poma][a]

Ага.. Есть такое...

var
	s, substr : string;
	i, j, cnt : Integer;

begin
	ReadLn(s);
	ReadLn(substr);

	cnt := 0;

	s := ' '+s+' ';
	for i := 2 to Length(s)-Length(substr)+1 do
		if (UpCase(s[i]) = UpCase(substr[1])) and (s[i-1] in ['!', '.', ' ', ',' ,'-']) and (s[i+Length(substr)] in [' ', '!', '.', ',']) then begin
			j := 2;
			while (j <= Length(substr)) and (UpCase(s[i+j-1]) = UpCase(substr[j])) do
                                Inc(j);
			cnt := cnt + Ord(j = Length(substr)+1)
	end;
	WriteLn(cnt)

end.

А так?

[Аватар]

Это ближе к телу. Как в паскале UpCase с кириллицей? В дельфи ни как. Заменил на AnsiUpperCase - стало как. И лучше до цикла сразу обе строки привести к одному регистру. Знаки препинания дополнить '?'.

[Poma][a]

Это ближе к телу. Как в паскале UpCase с кириллицей? В дельфи ни как. Заменил на AnsiUpperCase - стало как. И лучше до цикла сразу обе строки привести к одному регистру.

Плохо.. Забыл сказать.. Нужно или с widechar'ами баловаться.. либо свой писать..

Знаки препинания дополнить '?'

Ну тогда и ':', и '(', и еще 100500 символов..

[vadimmmm]

А например простую прогу которая считывает текст который ввел пользователь потом пользователь вводит слово которое искать, а программа подсчитывает из количество в тексте