Moin,
Zitat von
inherited:
... ich denke dass PosEx nichts anderes macht als den String durchzugehen. ...
das ist zu allgemein: PosEx() benötigt noch eine zweite Schleife für den String-Vergleich. PosEx() ist also nur sinnvoll, wenn wirklich nach einem String gesucht wird. Ein String mit der Länge 1 ist aber ein getarnter Char - und den findet man billiger mit einer eigenen Zählschleife.
Delphi-Quellcode:
function Occurs(const s: string; c: Char): Cardinal;
var
n: Cardinal;
begin
Result := 0;
for n := 1 to Length(s) do
Inc(Result, Ord(s[n] = c);
end;
Freundliche Grüße