Цитата:
Сообщение от 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 пробела между двумя словвами ставить нельзя))