Подсчет слов в Richedit

Кто нибудь знает как посчитать количество слов в компоненте RichEdit??

Кто-то положил это в эхотаг несколько недель назад. Я попробовал это и это, кажется, работает.

function GetWord: boolean; var s: string; {предположим что слова не содержат>255 символов} c: char;begin result:= false; s:= ' '; while not eof(f) do beginread(f, c);if not (c in ['a'..'z','A'..'Z'{,... и т.д, и т.п.}]) then break;s:=s+c;end;result:= (s<>' '); end; procedure GetWordCount(TextFile: string); begin Count:= 0;assignfile(f, TextFile);reset(f);while not eof(f) do if GetWord then inc(Count);closefile(f);end;

[000232]

Содержание раздела

---

---