1、Delphi正则表达式学习
Delphi正则表达式学习，参考CSDN万一老师的BLOG、CSDN、网络资料以及带源码的TPerlRegEx，在此注明，以后不再说明，在些感谢Google老师和百度老师
安装：
下载地址：http://download.csdn.net/source/1668436
1、安装.dpk文件，在Libary中添加TPerlRegEx单元存放路径
2、运行程序前复制pcrelib.dll到C:\WINDOWS下
小试：
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create(nil); //建立
reg.Subject := 'GoodBoy is You!'; //这是要替换的源字符串
reg.RegEx := 'You'; //这是表达式, 在这里是准备替换掉的子串
reg.Replacement := 'Me'; //要替换成的新串
reg.ReplaceAll; //执行全部替换
ShowMessage(reg.Subject); //返回替换结果: GoodBoy is Me
FreeAndNil(reg); //或 reg.Free
end;
//License Version 1.1
//Delphi 7.0
procedure TForm1.btn1Click(Sender: TObject);
var
Reg : TPerlRegEx;
begin
Reg := TPerlRegEx.Create(nil);
with Reg do
begin
Subject := '我爱DELPHI, 但Delphi不爱我--Delphi!'; //目标字符串
RegEx := 'Delphi'; //要替换的字符串
Replacement := '它'; //替换后的字符串
Options := [preCaseLess]; //不区分大小写
ReplaceAll; //全部替换
ShowMessage(Subject);
FreeAndNil(Reg);
end;
//设置Options := [preCaseLess];中文也可以替换
end;
相关文档：
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
// 判断是否是数值型 By yangxiao 2007.7.21
function isNumeric(strText: WideString): Boolean;
var
s: string;
i, l, p: Integer;
begin
Result := False;
l := Length(strText);
if l = 0 then Exit;
s := '';
for i:=1 to l do
......
开发步骤：
1、创建ActiveX Library工程。
2、创建COM Object。
3、创建Type Library，并创建相应接口。
4、创建接口对应的函数和实现。
具体如下：
1、创建COM Object。
new|other|activeX|com object
在Class Name(本例里类名里填Object，可按自己需要填写) 填写类名.(Instancing:实例创建方式,Threading Model:� ......
delphi中Synchronize这个东东有什么用？我知道是线程同步使用的
是否是一个函数或变量，当一个线程在使用时，如果这个函数使用了Synchronize修钸的话就不允许别一个线程来调用这个函数
1楼：别的线程会等待该操作完成后才能继续
2楼：你说的基本是这个意思。它的目的是避免多个子线程同时访问主线程资源。
示例：
......
