Trimming multiple characters from a string

This is the same as the TrimAllChar() function, but can delete a set of characters from a string. See the comment for an example of the usage. Thanks to Jeff Hamblin <[email protected]> for this code.

type
  TDelChars = set of Char;

function DeleteCharsFromString(const TempStr: string; DelChars: TDelChars): string;
{ func to delete all occurrences of each char in a set from a string. }
{ e.g. DeleteCharsFromString('$12,345.67', ['$', ',']) will return '12345.67' } 
{ Thanks to Jeff Hamblin for this code. Email: [email protected] }
{ Web: http://www.qtools.com }
var
  i: integer;
begin
  Result := TempStr;
  for i := Length(result) downto 1 do
    if Result[i] in DelChars then
  Delete(result, i, 1);
end;


Blue Orb Software
[email protected]