Adapted from my answer on StackOverflow: function RemoveChars(const aString: string; aCharsToRemove: TSysCharSet): string; var C: Char; begin Result := ''; for C in aString do begin if not CharInSet(C, aCharsToRemove) then begin Result := Result + C; end; end; end;
More...