2017年10月_nextop88

12月 11月 10月 09月 08月 07月 06月 05月 04月

转载判断线程是否释放

//以下资料来自大富翁论坛。/判断线程是否释放 //返回值：0-已释放；1-正在运行；2-已终止但未释放； //3-未建立或不存在 function TFrmMain.CheckThreadFreed(aThread: TThread): Byte; var i: DWord; IsQuit: Boolean; begin if Assigned(aThread) then begin IsQui

2017-10-30 09:55:58 914

转载 mysql 查询当前时间

第一种方法：select current_date；mysql> select current_date as Systemtime;+------------+| Systemtime |+------------+| 2009-07-29 |+------------+ 第二种方法：select now()mysql> select now(

2017-10-27 17:04:58 20655

转载 mysql时间的转换

select FROM_UNIXTIME(1464973385.641,'%Y-%m-%d %H:%i:%s');select UNIX_TIMESTAMP('2016-06-04 01:03:05');结果：FROM_UNIXTIME(1464973385.641,'%Y-%m-%d %H:%i:%s')2016-06-04 01:03:05UNIX_TIMESTAMP('2016

2017-10-27 14:43:57 241

转载 unix时间转化成普通时间

function UnixDateToDateTime(const USec: Longint): TDateTime;const cUnixStartDate: TDateTime = 25569.0; // 1970/01/01begin Result := (Usec / 86400) + cUnixStartDate;end;

2017-10-27 13:59:39 829 1

转载检测内存泄露的原因

一、使用步骤：A)、将CheckMem.pas单元加入到工程中B)、修改工程文件，将'CheckMem.pas'放到uses下的第一句program Project1;usesCheckMem in 'CheckMem.pas',Forms,Unit1 in 'Unit1.pas' {Form1} ;//其他单元文件{$R *.RES}beg

2017-10-24 17:20:35 841

转载内存泄露检测方法

Delphi 2007 下面,在主窗口的 FormCreate 加一条 ReportMemoryLeaksOnShutdown:=true; 有内存泄漏,会弹出一个对话框. CheckMem检测程序的内存泄漏 ,使用方法很简单,把 CHECKMem.pas 加到工程代码的第一行,重新编译程序. 再运行exe文件 . 有内存泄漏在本目录下生成 CheckMemory.Log文件.

2017-10-24 17:14:08 1334

转载 ntdll错误

在主界面的implementation {$R *.dfm} 下放入以下代码：procedure PatchInt3;var NOP: Byte; NTDLL: THandle; BytesWritten: DWORD; Address: Pointer; begin if Win32Platform Exit; NTDLL := GetModuleHan

2017-10-22 17:03:43 1509

转载 delphi跳出循环体

Delphi中表示跳出的有break，continue，abort，exit，halt，runerror等1.break　　强制退出最近的一层循环（注意：只能放在循环里；而且是只能跳出最近的一层循环），用于从for、while、repeat语句中强制退出　　类似于C/C++等语言中的break的功能 2.continue　　用于从for、while、

2017-10-19 20:26:01 1064