是谁占用了我的内存？
本帖最后由 byyouxin 于 2012-11-03 16:30:26 编辑
function tihuan(txt,sFlie:string):string;//替换关键词
.......
yuan.LoadFromFile(GetCurrentDir+'\替换内容\'+sFlie);
for i:= 0 to yuan.Count - 1 do
begin
Tstr.Text:=yuan[i];
Ts.Text:=zhaowenben(Tstr.Text,'<li>(.*)\|(.*)\|(.*)</li>',1);
Tt.Text:=zhaowenben(Tstr.Text,'<li>(.*)\|(.*)\|(.*)</li>',2);
if pos(Tguanxi.Text,Tstr.Text) >0 then
begin
end
else
begin
if pos(Ts.Text,txt) >0 then
begin
Tguanxi.Text:=Ts.Text;
end;
txt := tihuanwenben(txt,Ts.Text,Tt.Text);
end;
end;
Result:=txt;
yuan.Free;
Tstr.Free;
Ts.Free;
Tt.Free;
Tguanxi.Free;
function tihuanwenben(yuanwenjian,tihuanzifu,tihuanhou:string):string;
var
a:tperlregex;
begin
a:=TPerlRegEx.Create;
a.Subject:=yuanwenjian;
a.RegEx:=tihuanzifu;
a.Replacement:=tihuanhou;
a.ReplaceAll;
Result:=a.Subject;
a.Free;
end;
