关于日期问题？

Question

新书生，多多关照！！--怎么单独取出当前日期的年、月、日,然后加载的EDIT里面？
--我在edit里面输入一个如2004，那么在Tlistbox 自动插入一条2004并且当前显示 
  为2004

Answer 1

第一个问题：用now()得到日期，然后呢再用copy函数就可以，或都用format()也行，
第二个问题：要判断一下Edit输入完成后你要触发的事件，比如说onexit，还要判断一下你输入的年是不是正确的，然后呢listbox1.items.add，就可以了，

Answer 2

1.procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);procedure 2.TForm1.Button1Click(Sender: TObject);
begin
  listbox1.Items.Add(edit1.Text);
  listbox1.Selected[listbox1.Count-1]:=true;
end;