PCHarReplace

[Manne]

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;