EricTsui-优快云博客

转载 Linux 的多线程编程的高效开发经验

http://www.ibm.com/developerworks/cn/linux/l-cn-mthreadps/index.html

2011-08-01 10:21:11 555

原创 sqlite 自动编号的实现

首先，建个表：CREATE TABLE artist( artistid INTEGER PRIMARY KEY, --主键，每次insert时让它自动加1 artistname TEXT);insert语句这样写：insert into artist (art

2011-07-25 11:16:03 14036 3

原创 sqlite PRAGMA reverse_unordered_selects 的作用

sqlite> select * from z; //原始顺序1|1001|1503|3009|9008|800sqlite> PRAGMA reverse_unordered_selects=1; //反转原始顺序sqlite> select * from z;8|8009|

2011-07-21 11:45:18 913

转载 delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

procedure EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList);var searchRec: TSearchRec; found: Integer; tmpStr: string; curDir: string; dirs: TQueue; pszDir: PChar;begin dirs := TQueue.Create; //创建目录队列

2010-09-21 16:43:00 6972

原创 delphi 内存管理，定期释放

创建一个定时器，设置每隔N秒触发一次，也就是每隔多久进行一次内存清除！！ //调用 procedure TfmMain.Timer1Timer(Sender: TObject); begin TClearMemory.Create(False); end; ClearMemoryThread单元代码如下：<b

2010-08-05 10:41:00 1291

转载在Access中实现T-SQL中的ISNULL函数功能

Access中使用Nz函数来完成T-SQL中的ISNULL函数的功能，比如 Select Nz(Age,20) From Customer 但是遗憾的是，.net framework似乎不认Nz函数，而且该函数也有不适合的地方，因此要另想办法。 在Access中同样有ISNULL函数，当时该函数的功能是判断参数是否为Null，同时Access也支持iif函数，所以，要实现-SQL中的ISNULL函数的功能，我们可以这样写： Select

2010-07-12 11:44:00 2151

转载 delphi edit 让密码变成点

注意：这里不支持全角字符以及汉字，也就是这里面的值只能1字节！如果要实现类似XP圆点的话可以把文本框Font设置成WingDings，再将PasswordChar设置成"="就会出现圆点的注意：PasswordChar的掩码是按照字体会调整

2010-07-05 19:52:00 3240

原创 Delphi7 中TStringList的Delimiter DelimitedText有BUG，字符串分割有问题

var sl: TStringList; str: string; i: Integer;begin str := 'aa,b b,cc,dd'; sl := TStringList.Create; sl.Delimiter := ','; sl.DelimitedText := str; for i := 0 to sl.Count - 1 do ShowMessage(sl[i]); FreeAndNil(sl);

2010-07-01 16:13:00 6871 1

转载字符串与二进制数之间的互相转换

将一个字符串转为二进制，再从二进制转为原字符串。把字符串(可含中文字符)转为二进制数的函数:ConvertStrToBin();把二进制数转换为字符串的函数：ConvertBinToStr()。以下两个函数亦可以对包含有中文字符的字符串进行处理,逆转时亦可正常转为中文。Function ConvertStrToBin(Value : string):string;//把字符串转化为二进制数var tempHex : string[2]; i : inte

2010-06-30 20:14:00 11228

原创 Delphi 删除或清空一个目录(包含多级)

//use ShellApi;function DelDirectory(const Source: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(Source + #0);

2010-06-30 20:11:00 1769

原创 Delphi根据不同分隔符获取字符串内容

function GetFieldValue(separator:Char;strLine: string; nNum: Integer): string;var Strs :TStrings; ResultStr:string;begin Strs := TStringList.Create; strs.Delimiter := separator; Strs.DelimitedText := strLine; if nNum > Strs.Cou

2010-06-30 20:07:00 5306

转载简单的Delphi字符串加密解密函数

const XorKey: array[0..7] of Byte = ($B2, $09, $BB, $55, $93, $6D, $44, $47); //字符串加密用function Enc(Str: string): string; //字符加密函數這是用的一個異或加密var i, j: Integer;begin Result := ''; j := 0; for i := 1 to Length(Str) do be

2010-06-30 20:00:00 1478

转载 "Borland license information was found,but it is not valid for delphi." 的解决方法

现象：启动Delphi 7时出现如下提示：Borland license information was found,but it is not valid for delphi.原因：注册文件损坏。解决：1) Delete the file: C:/documents and settings//.borland/registry.slm 2) Run c:/program files/borland/delphi7/bin/D7Reg.exe 3) Click next... 4) Open

2010-06-30 13:45:00 2598

原创 QuickReport报表Prepare之后造成内存泄露问题的解决方法

在我们的项目开发中，经常用到QuickReport报表，而且很多报表的页脚都要提示 “页码：1/3”的信息，为了得到总页码，我们要在报表Preview之前加上Prepare，才能得到总页码，但是会造成内存泄露，（在工程的单元前加FastMM4可以获得内存泄露的信息）这个问题一直都得不到很好的解决，经过在网上搜索，得到了解决，方法如下：首先：在delphi中将该报表设置成不自动创建，如下图：然后打开报表的代码如下编写即可： RepSGD := TRepSGD.Create(

2010-06-30 13:21:00 1608

原创在delphi中实现密码框“大写锁定打开”的提示

在登录windows时，如果大写锁定打开，且焦点处于密码输入框中，会出现气泡提示信息：“大写锁定打开保持大写锁定打开可能会使你错误输入密码……”。 实现方式： 将edit控件的PasswChar设置成*，并在单元里面加入 uses XPMan。

2010-06-29 20:57:00 3941

原创 delphi中DateTimePicker控件同时输入日期和时间

将DateTimePicker的Format属性中加入日期格式设成 'yyyy-MM-dd HH:mm'，注意大小写， 将kind设置为dtkTime即可，可以在每次Form onShow时将DateTimePicker1.DateTime := Now

2010-06-24 12:32:00 16917

Eric的学习日志博客