Noch ne Variante:
Delphi-Quellcode:
const
InvalidChars = ['&',' ','ä','ö' ... ]
.
.
.
result:=OldPicName;
for i:=1 to length(result) do
begin
if result[i] in InvalidChars then
result[i]:='_';
end;
Achtung ungetestet. Vom Prinzip her sollte es aber funktionieren und ist wesentlich schneller, als viele StringReplace
