Подсчет слов в Richedit
Материал из DRKB
Подсчет слов в 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;
Source: http://delphiworld.narod.ru/
ID: 01031