Zeichen in string löschen

[Pseudemys Nelsoni]

1.

Delphi-Quellcode:

function Count(const S: string; C: Char): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(S) do
    if S[I] = C then
      Inc(Result);
end;

2.

Delphi-Quellcode:

while Pos(C, S) > 0 do
  Delete(S, Pos(C, S), 1);