/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

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

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

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

function GetWord: boolean;
var s: string; {предположим что слова не содержат>255 символов}

c: char;

begin
result:= false;
s:= ' ';
while not eof(f) do

begin

read(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]