Anzahl eines Zeichens im String ermitteln

[1234588]

Delphi-Quellcode:

var
  i: LongInt;
  j: LongInt = 0;
begin
  for i := 1 to length(str) do
    if str[i] = zeichen then Inc(j);

es wird einfach zeichen fuer zeichen verglichen. in j findest du dann die anzahl der zeichen

//edit
die funktion dazu:

Delphi-Quellcode:

function miep(const s: String; c: Char): LongInt;
var
  i: LongInt;
begin
  result := 0;
  for i := 1 to length(s) do
    if s[i] = c then Inc(result);
end;