Bordmittel gesucht: Bestimmte Zeichen aus String entfernen

[Hawkeye219]

Hallo,

ich hatte nur einfaches Bordwerkzeug dabei:

Delphi-Quellcode:

function RemoveChars (const aSource: string;
                      const aChars: TSysCharSet): string;
var
  i, Count : Integer;
begin
  SetLength (Result, Length(aSource));
  Count := 0;
  for i := 1 to Length(aSource) do
    if not (aSource[i] in aChars) then
      begin
        Inc (Count);
        Result[Count] := aSource[i];
      end;
  SetLength (Result, Count);
end;

Gruß Hawkeye