请教高手，下拉框中如何取当前系统的年月?

Question

我想在下下拉框中默认的取当前系统的年月，不知如何实现？

Answer 1

listbox1.items.add(inttostr (yearof (now)));
listbox1.items.add(inttostr (monthof (now)));
listbox1.items.add(inttostr (dayof(now)));

Answer 2

对不起，我想我没说清楚，我用的是combobox这个控件，combobox1.text:='**',等于之后应该怎么写？

Answer 3

Combobox1.Text:=FormatDateTime('yyyy年mm月',Date);
Combobox1.Text:=FormatDateTime('yyyy-mm',Date);

Answer 4

combobox1.text := DateToStr (now);
如果只取年和月，则：
1,在uses加入dateUtils
2,combobox1.text := inttostr (yearof (now)) + '-' + inttostr (monthof (now));