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