Stringfilter

[himitsu]

Delphi-Quellcode:

procedure FilterText( var Text: String; BadChars: Set of Char );
var
  i: Integer;
begin
  for i := Length(Text) downto 1 do
    if Text[i] in BadChars then
      Delete(Text, i, 1);
end;

Aufruf wie schon bei Aphton