应用场景
有如下一个字符串:
‘苹果 香蕉 火龙果’ 是3个词语,返回3
如果"苹果 香蕉"用双引号就表示是一个整体算1个词语,返回2
函数代码
function CountUnquotedWords(const S: string; const AQuote: Char = '"'): Integer;
begin
with TStringList.Create do
try
QuoteChar := AQuote;
Delimiter := ' ';
DelimitedText := S;
Result := Count;
finally
Free;
end;
end;
测试
caption:= CountUnquotedWords('苹果 香蕉 火龙果').ToString; //返回3
//caption:= CountUnquotedWords('"苹果 香蕉" 火龙果').ToString; //返回2
···