Nicht getestet müsste aber funktionieren.
(hab eine Min. bei Google suchen müssen)
Code:
function ReplaceCharFast (const s: string;
ch1: char; ch2: char): string;
var i: integer;
begin
Result := s;
for i := 1 to length (Result) do
if Result [i] = ch1 then
Result [i] := ch2;
end;