Delphi中返回由空格分隔的字符串中单词的总数

应用场景

有如下一个字符串：
‘苹果 香蕉 火龙果’ 是3个词语，返回3
如果"苹果 香蕉"用双引号就表示是一个整体算1个词语，返回2

函数代码

function CountUnquotedWords(const S: string; const AQuote: Char = '"'): Integer;
beginwith TStringList.Create dotryQuoteChar := AQuote;Delimiter := ' ';DelimitedText := S;Result := Count;finallyFree;end;
end;

测试

  caption:= CountUnquotedWords('苹果 香蕉 火龙果').ToString;//caption:= CountUnquotedWords('"苹果 香蕉" 火龙果').ToString;
···