delphi 问题

怎么把时间和日期赋值给变量

答案：procedure TForm1.Button1Click(Sender: TObject);
var
time:TTime;
begin
  time:=now; //把当前时间 附给变量
  caption := timetostr(time);//窗体上题目为时间
end;
{回答完毕}

{以下再扩充一下：}
{以下是把日期附给变量}
procedure TForm1.Button2Click(Sender: TObject);
var
date1:Tdate;
begin
  date1:=now;//把当前日期 附给变量
  caption := datetostr(date1);//窗体上题目为日期
end;

{以下是把日期时间附给变量}
procedure TForm1.Button3Click(Sender: TObject);
var
datetime1:Tdatetime;
begin
  datetime1:=now;//把当前日期时间数据 附给变量
  caption := datetimetostr(datetime1);
end;

{如果将指定的时间附给变量，见以下,将9点45分30秒附给变量t，当然了，时间可以为变量}
procedure TForm1.Button4Click(Sender: TObject);
var
t:Ttime;
begin
 t:=StrToTime('09:45:30');
 caption := TimeTostr(t);
end

上一个：Delphi问题
下一个：delphi 代码？