delphi - programacion - ¿Cómo contar el número de ocurrencias de un cierto char en una cadena?

delphi wikipedia

Question

¿Cómo puedo contar el número de apariciones de un determinado personaje en una cadena en Delphi?

Por ejemplo, supongamos que tengo la siguiente cadena y me gustaría contar el número de comas en ella:

S := ''1,2,3'';

Entonces me gustaría obtener 2 como resultado.

Answer 1

A pesar de que ya se aceptó una respuesta, estoy publicando la función más general a continuación porque me parece muy elegante. Esta solución es para contar las ocurrencias de una cadena en lugar de un carácter.

{ 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 2

Este puede hacer el trabajo si no está manejando texto grande

...

uses RegularExpressions;

...

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

Answer 3

Puedes usar esta simple función:

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 4

Y para aquellos que prefieren el bucle del enumerador en las versiones modernas de Delphi (ninguna mejor que la solución aceptada por Andreas, solo una solución alternativa):

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 5

Puede usar el beneficio de la función StringReplace como:

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