Einzelnen Beitrag anzeigen

Benutzerbild von Ajintaro
Ajintaro

Registriert seit: 20. Okt 2004
Ort: Sankt Augustin
138 Beiträge
 
Delphi XE6 Starter
 
#1

Datumsfunktion in einer for-Schleife

  Alt 13. Feb 2012, 16:14
Hallo DP!

Ich habe Dateien mit einem Datum im Dateinamen. Fuer den heutigen Tag sieht sie z.B. so aus: 120213.zip

FormatDateTime('yymmdd',now)+'.zip'
Ich moechte nun die Dateien der letzten 14 Tage auf Anwesenheit pruefen. Vermeiden moechte ich:

Delphi-Quellcode:
if FileExists(FormatDateTime('yymmdd',now)+'.zip') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-1') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-2') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-3') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-4') then //mache dies und das
...
Das kann man bestimmt irgendwie eleganter loesen.

Delphi-Quellcode:
for i := 0 to -13 do
 begin
  if FileExists(FormatDateTime('yymmdd',now[i])+'.zip') then //mache dies und das
  dec(i);
 end;

So gehts auf jeden Fall nicht WIsst ihr Rat?
Jaimy
  Mit Zitat antworten Zitat