delphi - 如何统计字符串中某个字符出现的次数？

Question

如何计算Delphi中某个字符在字符串中出现的次数？

例如，假设我有以下字符串，并且想要计算其中逗号的数量:

S := '1,2,3';

然后我想获得2作为结果。

Answer 1

您可以使用这个简单的功能:

function OccurrencesOfChar(const S: string; const C: char): integer;
var
  i: Integer;
begin
  result := 0;
  for i := 1 to Length(S) do
    if S[i] = C then
      inc(result);
end;