Verständnisfrage

[GuenterS]

Die Anzahl könntest Du auch so kriegen... und vielleicht hast Du es ja auch so

Delphi-Quellcode:

function MyCountOfChar(aStr: string; aChar: char):integer;
begin
   Result := length(aStr) - length(StringReplace(aStr, aChar, '', [rfReplaceAll]));
end;