Mit Pos im String suchen, was weiter?

[Hellcat]

Das ist zwar nicht die eleganteste Variante, aber sie erfüllt ihren Zweck:

Delphi-Quellcode:

procedure zeichenzaehlen;
var zaehler,zahl, Ende:integer;
    text:string;
    zeichen: char;
begin
  text := {hier musst Du die Quelle angeben};
  zeichen := {hier gibst Du das Zeichen an nach dem gesucht werden soll};
  zahl := 0;
  Ende := {hier steht bis zum wie vielten Zeichen gezählt werden soll}
  for zaehler := 1 to length (text) do 
  begin 
    if text[zaehler] = zeichen then inc(zahl);
    if zahl=ende then exit   
  end;
end;

Das klappt aber nur für recht kurze Zeichenketten, bei größeren Texten ist das zu rechenaufwendig