 |
 |
 |
 |
 |
|
|
Registriert seit: 21. Mär 2003 86 Beiträge Delphi XE Starter |
#1
Code kürzen
2. Feb 2005, 10:27
Hallo zusammen,
ich habe eine ganz einfache Frage  :Geht folgendes auch irgenwie kürzer zu schreiben?
Delphi-Quellcode:
ereetzer
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')); |
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Baum-Darstellung
