| ReplaceChStr Function | 
Unit
QESBPCSConvert
Declaration
Function ReplaceChStr(const S: string; const OldCh, NewCh: Char): string;
| Parameters | 
| S | the String to process. | 
| OldCh | the character to look for. | 
| NewCh | the character to replace with. | 
Category
Extra String Handling RoutinesImplementation
 
| function ReplaceChStr (const S: string; const OldCh, NewCh: Char): string;
var
     I: LongWord;
begin
     Result := S;
     if OldCh = NewCh then
          Exit;
     for I := 1 to Length (S) do
          if S [I] = OldCh then
               Result [I] := NewCh;
End; | 
|  |