1. die Schleife ist überflüssig.
2. das inc() ist überflüssig
3. Also ist eigentlich die ganze Funktion überflüsseig
Delphi-Quellcode:
function StrCharRemove(wort: string; C: Char): string;
begin
result := StringReplace(wort, C, '', [rfReplaceAll]);
end;