Jak liczyć liczbę wystąpień pewnego znaku w ciągu znaków?

Question

Jak mogę policzyć liczbę wystąpień określonego znaku w ciągu znaków w Delphi?

Na przykład załóżmy, że mam następujący ciąg i chciałbym policzyć przecinkami w nim:

S := '1,2,3'; 

Następnie chciałbym uzyskać 2 jako wynik.

Answer 1

można wykorzystywać tę prostą funkcję:

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; 

Answer 2

A dla tych, którzy wolą pętlę numeratora w nowoczesnych wersjach Delphi (nie lepiej niż przyjętego rozwiązania Andreas, tylko rozwiązanie alternatywne):

function OccurrencesOfChar(const ContentString: string; 
    const CharToCount: char): integer; 
var 
    C: Char; 
begin 
    result := 0; 
    for C in ContentString do 
    if C = CharToCount then 
     Inc(result); 
end; 

Answer 3

Ten może wykonywać pracę na jeśli nie jesteś przenoszenia dużego tekstu

...

uses RegularExpressions; 

...

function CountChar(const s: string; const c: char): integer; 
begin 
Result:= TRegEx.Matches(s, c).Count 
end; 

Answer 4

Chociaż odpowiedź została już przyjęta, jestem delegowania bardziej ogólną funkcję poniżej, ponieważ uważam, że tak elegancki. To rozwiązanie służy do zliczania wystąpień ciągu znaków, a nie znaku.

{ Returns a count of the number of occurences of SubText in Text } 
function CountOccurences(const SubText: string; 
          const Text: string): Integer; 
begin 
    Result := Pos(SubText, Text); 
    if Result > 0 then 
    Result := (Length(Text) - Length(StringReplace(Text, SubText, '', [rfReplaceAll]))) div Length(subtext); 
end; { CountOccurences } 

Answer 5

można wykorzystywać korzyści z funkcji StringReplace jak:

function OccurencesOfChar(ContentString:string; CharToCount:char):integer; 
begin 
    Result:= Length(ContentString)-Length(StringReplace(ContentString, CharToCount,'', [rfReplaceAll, rfIgnoreCase])); 
end;