今天买菜和买小零食,这也买,那也买,虽然不贵,但是拿不动啊,搬东西的时候太痛苦。 同理,工作也要有选择,不能只盯着钱多的那个,要为长远的事业或者创业来考虑。 再比如,交朋友更要注意,不能顺着自己的性子想怎么样就怎么样,否则追悔莫及,或者太任性了以至于把人吓跑了。 再比如,发脾气也要不能不留余地,否则 Read More
posted @ 2016-04-16 23:10 findumars Views(362) Comments(0) Diggs(0)
待续 摘自《Delphi深度历险》 Read More
posted @ 2016-04-16 17:33 findumars Views(486) Comments(0) Diggs(0)
原文地址:http://www.barretlee.com/blog/2015/12/10/after-framework-we-gonna-to-hug-data/,参与评论 原文地址:http://www.barretlee.com/blog/2015/12/10/after-framework Read More
posted @ 2016-04-16 17:16 findumars Views(279) Comments(0) Diggs(0)
uses messages; Procedure SetDateFormat; //设置系统日期格式var buf:pchar; i:integer; p:DWORD;begin getmem(buf,100); i:=100; //i必须在调用前赋值为buf缓冲区的长度。如果设为0或负值,将取不到 Read More
posted @ 2016-04-16 17:02 findumars Views(723) Comments(0) Diggs(0)
只读文件就是不能删除的文件,用DeleteFile函数对它来说是毫无意义的,要删除只读文件,只有先改变它的属性。如果你要删除一个文件,最好先作两个方面的考虑: (1)判断该文件的属性。可以用上面提到的FileGetAttr与FileSetAttr函数。如果属性为只读,将它改为存档,然后删除它。 (2 Read More
posted @ 2016-04-16 04:53 findumars Views(1036) Comments(0) Diggs(0)
sleep是会阻塞线程的 网上有些延迟函数测试下来还是会阻塞,而接下来推荐的代码则不会 1 2 3 4 5 6 7 8 9 procedure delay(dwMilliseconds:integer); var firsttickcount: longint; begin firsttickcou Read More
posted @ 2016-04-16 04:35 findumars Views(458) Comments(0) Diggs(0)