If-Schleifen-Haufen zusammenfassen

[Die Muhkuh]

Schau dir mal AnsiIndexText an.

Edit:

Kleines Beispiel:

Delphi-Quellcode:

const
  FileTypes: array [0..4] of string = ('avi', 'mpg', 'mpeg', 'wmf', 'wmv');

procedure Blabla(Ext: String);
begin
  if AnsiIndexText(Ext, FileTypes) > - 1 then
  begin
    // MAch was mit mir :)
  end;
end;