Подсчет слов в 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