请教 语句怎么写
if ACurDate <> ADateList.Strings[AEndPos] then
begin

如果 ACurDate 和ADateList.Strings[AEndPos]如期差 大于 8 天
DeleteFile(AWorkDir + AFileList.Strings[Integer(ADateList.Objects[AEndPos])]);
end；


怎 判




[解决办法]
直接相减就是天数
[解决办法]
Delphi提供了时间相减得到天数的函数。详细按F1可知。

Delphi(Pascal) code

Unit DateUtils Syntax [Delphi] function DaysBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;