Code kürzen

[ereetzer]

Hallo zusammen,

ich habe eine ganz einfache Frage :-D :

Geht folgendes auch irgenwie kürzer zu schreiben?

Delphi-Quellcode:

    DeleteFile(ChangeFileExt(ParamStr(0), '.xls'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.tex'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.xml'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.csv'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.dif'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.doc'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.html'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.rtf'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.slk'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.sql'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.pdf'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.dbf'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.txt'));
    DeleteFile(ChangeFileExt(ParamStr(0), '.bck'));

ereetzer

[Sharky]

Hai ereetzer,

schreibe deine Dateiendungen in ein Array und lösche dann in einer For-Do-Schleife.

[ereetzer]

danke schön.