夜行血手的专栏

在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。一、三种方法的简单介绍1）TTtimer控件　 TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消   息的处理过程。通过设置OnTimer事件和Inter

DateDiff("y",timefield,2002-11-28)>0       在年的区分度上比较时间大小============================================================================== listview中的checkbox中的 钩选： var     first,secord:tlistitem;  

var  frmSendJindu: TfrmSendJindu;  arXlsBegin: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);  arXlsEnd: array[0..1] of Word = ($0A, 00);  arXlsString: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);  ar

******************************** 编 译 错 误 信 息 ********************************; not allowed before ELSE ElSE前不允许有“;” clause not allowed in OLE automation section 在OLE自动区段不允许“”子句 is not a type i

function jiexi(strsql:string):string; begin   while (AnsiPos([,strSql)   begin     result:=copy(strsql,AnsiPos([,strSql)+1,AnsiPos(],strSql)-AnsiPos([,strSql)-1);      end;end; 

很多时候有收到以  ‘=?utf-8?Q?=’或者 ‘?GB2312?B?1qe’开头的信息，那么如何解码呢以下是函数：目前增加支持 utf-8，BIG5的转换。Q表示Q编码，B表示B编码。=============================uses EncdDecd=========================//信息/Subject: =?utf-8?Q?=E

1：通过OLE方式创建uses ComObj; procedure TFormOffice.BitBtn1Click(Sender: TObject);varCreateAccess:OleVariant;beginCreateAccess:=CreateOleObject(´ADOX.Catalog´);CreateAccess.Create(´Provider=

有临时文件可以放到这里，而不用自己维护 function   GetLongPathName(lpszShortPath:   PChar;   lpszLongPath:   PChar;   cchBuffer:   DWORD):   DWORD;   stdcall;   external   kernel32   name   GetLongPathNameA;//调用ker