как правильно считать слова в тексте

[student_iz_permi]

Ребята, кто может пояснить почему именно(то что в комменты взял) так подсчет слов в тексте ведется и для чего это сделано?? если убрать ту часть которая в коментах, я заметил что подсчет неправильный..

if ((str = 32) or (str = 13) or (str = 10)) (*then
   if ((oldstr<>32) and (oldstr<>13) and (oldstr<>10))*) then word1:= word1 + 1;

было бы лучше, если прям на примере показать. например вот слово от него идет пробел, соответственно конец слова, увеличиваем счетчик. А вот если например, после слова идет пробел конец строки и новая строка. что тогда? . я не понимаю.
переменная Str текущее значение символа
oldstr предыдущее значение.

[Stilet]

почему именно(то что в комменты взял) так подсчет слов

Я тебя разочарую - это неверный алгоритм подсчета ))
Фраза, в котором слова разделяются несколькими пробелами или даже пунктуацией без пробелов тут подсчитана будет неверно.

[student_iz_permi]

Вы мне поясните пожалуйста, желательно на примере!
if ((str = 32) or (str = 13) or (str = 10)) then
if ((oldstr<>32) and (oldstr<>13) and (oldstr<>10)) then word1:= word1 + 1;
а что тут тогда нужно учесть??

почем в условие смотрят на предыдущее значение символа проверяемого??

в каких ситуациях то, что было изначально в коментах. понадобится??

[NewLamer&Programer]

имхо как то так, не идеально конечно... если считать что 2 символа из алфавита это уже слово, то...

Function WordCount(Text: String): Integer;
const Alphabet: Set of Char = ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'];
Var Count, i, Index: Integer;
begin
Index:= 0; Count:= 0;
for i:= 1 to Length(Text) do
  begin
  if (Text[i] in Alphabet)
  then inc(Index)
  else if Index>1 then
    begin
    inc(Count);
    Index:= 0;
    end;
  end;
Result:= Count+1;
end;