Dateien älter als X Tage löschen...

[toms]

Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   First, Today: TDateTime;
   Days: Integer;
begin
   First := StrToDate(FirstEdit.Text);
   Today := StrToDate(TodayEdit.Text);
   Days := DaysBetween(First, Today); 
   ResultEdit.Text := IntToStr(Days);
end;