例如,假设我有以下字符串,并希望计算其中的逗号数：
S := '1,2,3';
那么我想获得2的结果.
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;
