2011 年 12月 10 日随笔档案 - del88

2011年12月10日

摘要： procedure TForm1.SpeedButton2Click(Sender: TObject);var i:integer;beginfor i :=0 to checklistbox1.Items.count-1 dobegin checklistbox1.Checked[i] := tr 阅读全文

posted @ 2011-12-10 15:55 del88 阅读(8) 评论(0) 推荐(0) 编辑

CheckListBox1

摘要： {动态获取选项} for i:=0 to CheckListBox1.Count-1 do begin if CheckListBox1.State[i]=cbChecked then //do something; end; 阅读全文

posted @ 2011-12-10 15:29 del88 阅读(10) 评论(0) 推荐(0) 编辑

时间转换例子

摘要： start_created := formatdatetime('yyyy-mm-dd',start_created_date_dtp.Date) + ' ' + formatdatetime('hh:mm:ss',start_created_time_dtp.Date); end_created 阅读全文

posted @ 2011-12-10 14:35 del88 阅读(25) 评论(0) 推荐(0) 编辑