9
if StrToInt(sY) > 2013 then
begin
  bDate := False;
  ShowMessage('Year is bigger than current year');
  Exit;
end;

这就是我现阶段所拥有的,但我很确定有一种方法可以获取当前年份,而不必在 delphi 代码中手动键入它,如果有人可以帮助我编写代码,我将不胜感激。

4

1 回答 1

30

DateUtils.YearOf(Now)会给你当前的年份,

或使用

SysUtils.CurrentYear.

正如@Remy 指出的那样,DateNow. 也是如此DateUtils.Today

于 2013-10-14T18:24:45.757 回答