Moin,
hier noch eine kleine Detail-Studie:
Delphi-Quellcode:
function PosChars(c: Char;
const s:
string;
var count: Integer): Integer;
begin
Result := Pos(c, s);
count := Result
div 1;
while (count > 0)
and (count <= Length(s))
and (s[count] = c)
do
Inc(count);
Dec(count, Result);
end;
Freundliche Grüße