本文整理自网络，侵删。
Now、Date、Time、CurrentYear - 当前日期
SysUtils.Now;
SysUtils.Date;
SysUtils.Time;
SysUtils.CurrentYear;
--------------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses DateUtils;
procedure TForm1.FormCreate(Sender: TObject);
var
dt: TDateTime;
d: TDate;
t: TTime;
y: Word;
begin
dt := Now;
d := Date;
t := Time;
y := CurrentYear;
ShowMessage(DateTimeToStr(dt)); //2009-5-21 17:45:50
ShowMessage(DateToStr(d)); //2009-5-21
ShowMessage(TimeToStr(t)); //17:45:50
ShowMessage(IntToStr(y)); //2009
end;
end.
相关阅读 >>
Delphi xe android下让tmemo不自动弹出键盘
Delphi tms web core messagedlg对话框 yes no
更多相关阅读请进入《Delphi》频道 >>
