摘要：INSERT INTO TABLE1 SELECT ID+1, COLUMN1, COLUMN2,... FROM TABLE1 WHERE ID=最大的ID 阅读全文

摘要：XP和Win7的日期格式在系统默认中并不一致，比如在XP下默认是'2012-1-1'，在win7下却变成了'2012/1/1'。办法1---替换法：strSetTime :='2012/1/1' ;if pos('/', strSetTime) > 0 then strSetTime := StringReplace(strSetTime, '/', '-', [rfReplaceAll]);办法 2---TFormatSettings使用TFormatSettings来就OK了var t:T 阅读全文

摘要：Delphi程序必须在资源里面嵌入MANIFEST信息一、 首先编辑一个文件，内容如下：<?xml version="1.0" encoding="UTF-8" standalone="yes"?><assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"& 阅读全文

摘要：Sleep会引起程序停不动的现象，很多时候我们可能不想出现这种情况，那么就自己动手写一个吧//延时DT毫秒procedure TimeDelay(DT: Dword);var tt: dword;begin tt := gettickcount(); //取的当前计算机时间 while gettickcount() - tt < dt do //判断是否超出延迟的时间（单位毫秒） application.ProcessMessages;end; 阅读全文

摘要：在设计软件的时候，很多人都没有注意到DPI的问题，因为我们绝大多数用户默认都是使用96，但是也有些用户是使用120的。如果没有注意到这点，那么软件运行在120下面的话会出现排版混乱的情况。 function IsSmallDPI: boolean;var DC: HDC;begin DC := GetDC(0); Result := (GetDeviceCaps(DC, logpixelsx) = 96); ReleaseDC(0, DC);end; 阅读全文