Показать сообщение отдельно
  #5  
Старый 06.03.2010, 13:38
Аватар для Ferra
Ferra Ferra вне форума
Местный
 
Регистрация: 12.03.2006
Адрес: Минск
Сообщения: 527
Репутация: 1336
По умолчанию

Цитата:
Сообщение от WeG
нужно все считать и предлоги, и союзы.
Ога, сам бы написал лучше

Функция:
Код:
function WordCount(Text : String) : LongWord;
var
 i : LongWord;
begin
Result:=0;
 for i:=0 to Length(Text) do
  if (Text[i]=' ') or ((Text[i]=#13) and (Text[i+1]=#10)) then inc(Result);
 if Result<>0 then inc(Result);
end;

Вызов:
Код:
ShowMessage('Words count: '+IntToStr(WordCount(Memo1.Text)));

Работает если между словами есть пробел, либо если есть переводы строк. Дерзай
PS> Кстати 2 пробела между двумя словвами ставить нельзя))
__________________
Нет повести печальнее на свете, чем повесть о заклиневшем Resete.
Ответить с цитированием