小弟我想做一个button把现在的时间，年，月，日，时，分，秒输入不同的edit

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
begin
  DecodeDateTime(now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
  Edit1.Text:= IntToStr(AYear);
  Edit2.Text:= IntToStr(AMonth);
  Edit3.Text:= IntToStr(ADay);
  Edit4.Text:= IntToStr(AHour);
  Edit5.Text:= IntToStr(AMinute);
  Edit6.Text:= IntToStr(ASecond);
end;

------解决方案--------------------
FormatDateTime('yyyy-mm-dd hh:mm:ss', date)

FormatDateTime函数能满足你的要求

------解决方案--------------------
DayOfWeek

------解决方案--------------------
。。。。。楼上几位的方法很难吗？