本文整理自网络,侵删。
for I := 0 to 200 dobegin Edit_Y.Items.Add((1949+i).ToString);end;
Edit_Y.ItemIndex:=Edit_Y.Items.IndexOf(formatdatetime('yyyy',now()));

相关阅读 >>
Delphi中write,read,writeln和readln的用法
Delphi windows 编程[4] - 学习窗体生成的过程四
Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法
Delphi keydown与keyup、keypress的区别
更多相关阅读请进入《Delphi》频道 >>