享受黑夜 - 博客园

2013年11月29日

摘要： if (month in (1,3,5,7,8,10,12))return 31;else if (month in(4,6,9,11))return 30;else if (year 是闰年)return 29;elsereturn 28;闰年的算法((year mod 4 = 0) and (year mod 100 0)) or (year mod 400 = 0) 阅读全文

posted @ 2013-11-29 04:56 享受黑夜阅读(706) 评论(0) 推荐(0)

获取本月第一天和最后一天的最简单的写法

摘要：方法一：procedure TForm1.FormCreate(Sender: TObject);var firstDay,lastDay:TDateTime;begin firstDay := StrToDate(FormatDateTime('yyyy-mm-1',Now)); (* 本月第一天 *) lastDay := IncMonth(firstDay)-1; (* 本月最后一天 *) mmo1.Lines.Add(DateTimeToStr(firstDay)); mmo1.Lines.Add(DateTimeToStr(... 阅读全文

posted @ 2013-11-29 04:52 享受黑夜阅读(402) 评论(0) 推荐(0)

2013年10月26日

Delphi XE5开发的Android启动时黑屏解决方法

摘要：默认的情况下，程序启动时，会有一个黑屏的时期，原因是，首个activity会加载一些数据，比如初始化列表数据等。去除步骤1./res/values/styles.xml在Theme中，添加一个android:windowBackgrounds属性，设置需要的图片2.在AndroidManifest.xml中设置Theme到首个启动的Activity下。3.添加/res/drawable-port/loading.png(若是横屏的启动画面，请放于/res/drawable-land/loading.png)4.完成参考代码：...... 阅读全文

posted @ 2013-10-26 18:05 享受黑夜阅读(877) 评论(0) 推荐(0)