2016年3月2日
关于延迟时间的一点智慧
关于延迟时间的一点智慧 一般的做法： Sleep(2000); // 延迟2秒此种做法有俩个弊端：（1）如果实际需要的延迟时间不需要2秒，则明显有延迟时间浪费；（2）如果实际需要的延迟时间超过2秒，则很可能发生不可预料的错误。 改进的做法： repeat Sleep(10); until FileE Read More
posted @ 2016-03-02 23:27 findumars Views(257) Comments(0) Diggs(0)
文件分割合并
procedure SplitFile(FileName : TFileName; FilesByteSize : Integer) ;// FileName == file to split into several smaller files// FilesByteSize == the siz Read More
posted @ 2016-03-02 23:26 findumars Views(256) Comments(0) Diggs(0)
让delphi程序不受WINDOWS日期格式的影响（使用SetLocaleInfo函数和Application.UpdateFormatSettings）
如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// Read More
posted @ 2016-03-02 23:24 findumars Views(1321) Comments(0) Diggs(0)
TMemoryStream、String与OleVariant互转
//////////////////////////////////////////////////////////////////////////////////功能: STRING 的内容流化到 OLEVARIANT 中//参数：///////////////////////////////// Read More
posted @ 2016-03-02 23:23 findumars Views(849) Comments(0) Diggs(0)
监控指定进程
对于守护中间件是非常有用的。中间件不可能绝对的稳定而不出问题，中间件有可能因比较严重的错误导致当机或者进程被人为地错误地关闭了中间件。 有了这个自动守护进程的存在，这一切的问题都可以迎刃而解。 program Monitor; // {$APPTYPE CONSOLE} usesWinapi.Win Read More
posted @ 2016-03-02 23:22 findumars Views(458) Comments(0) Diggs(0)