delphi - 如何计算文本文件中包含多个空格字符的所有单词

Question

我正在尝试编写一个程序来计算 Pascal 文本文件中的所有单词。我希望它处理多个空格字符，但我不知道该怎么做。

我尝试添加一个 bool 函数Space来确定一个字符是否是空格，然后执行

while not eof(file) do
begin    
  read(file,char);
  words:=words+1;
  if Space(char) then
    while Space(char) do
      words:=words;

但这不起作用，基本上只是总结了我对程序应该是什么样子的(可能是糟糕的)想法。有什么想法吗？

Answer 1

基本上，正如 Tom 在他的回答中概述的那样，您需要一个具有 In_A_Word 和 Not_In_A_Word 两种状态的状态机，然后在状态从 Not_In_A_Word 更改为 In_A_Word 时进行计数。

类似于(伪代码)的内容:

var
  InWord: Boolean;
  Ch: Char;
begin
  InWord := False;
  while not eof(file) do begin    
    read(file, Ch);
    if Ch in ['A'..'Z', 'a'..'z'] then begin
      if not InWord then begin
        InWord := True;
        Words := Words + 1;
      end;
    end else
      InWord := False
  end;
end;