Sonderzeichen in einem String suchen

[bttb930]

machs weiter mit ner for schleife und Copy, dann frag aber nicht jedes einzelne zeichen ab sondern mit mengen:

Delphi-Quellcode:

var
  i: Integer;
for i := Length(zeile) downto 1 do
  if zeile[i] in ['.', ',', ';'] then
    zeile := Copy(zeile, 1, i-1) + Copy(zeile, i+1, Length(zeile));