Code kürzen

[Die Muhkuh]

Hi,

ich hab hier eine Procedure, die mir je nach Dateiendung im SynEdit den passenden Highlighter setzt.

Ich hab 15 Highlighter auf der Form. Manche haben mehr als eine Dateiendung (wie z.B. *.c, *.cpp,... bei C++).

Wie könnte man das ganze kürzen:

Delphi-Quellcode:

if (Pos('.asm', FileName) > 0) then
    GetDoc.Code.Highlighter := SynAsm
  else
  if (Pos('.cs', FileName) > 0) then
    GetDoc.Code.Highlighter := SynCS
  if (Pos('.c', FileName) > 0) or
    (Pos('.cpp', FileName) > 0) or
    (Pos('.h', FileName) > 0) or
    (Pos('.hpp', FileName > 0) then
    GetDoc.Code.Highlighter := SynCpp

Das ist jetzt nur ein kleines Stück davon. Das geht so noch weiter. Wie kann man das kürzen? Geht das überhaupt?