If-Schleifen-Haufen zusammenfassen

[Klaus01]

Zitat von XeRo:

Also meine If Schleifen sehen im Moment etwa derartig aus:

Delphi-Quellcode:

if(s='avi')or
(s='mpg')or
(s='mpeg')or
(s='wmf')or
(s=.....)...

Wie kann ich das vernünftiger machen?

Vielleicht so?

Delphi-Quellcode:

var
  FileTypes : set of ['avi','mpg','mpeg','wmf']


if s in FileTypes then
 ...

Grüße
Klaus