Тема
:
работа с текстом
Показать сообщение отдельно
#
3
26.03.2006, 14:49
Keygenmusic
Активный
Регистрация: 24.10.2005
Адрес: Там
Сообщения: 201
Репутация:
20
4)посчитать пробелы и прибавить 1. это если текст по правилам, нормально написан.
var str:string; wordcount:integer;
for i:=0 to length(str) do
if str[i]=' ' then inc(wordcount);
inc(wordcount); //+1
Keygenmusic
Посмотреть профиль
Отправить персональное сообщение для Keygenmusic
Посетить домашнюю страницу Keygenmusic
Найти все сообщения от Keygenmusic