在delphi中使用PerlRegEx的问题
代码如下：
Delphi(Pascal) code:
for i := 0 to 49 do
begin
reg.Subject := List[i];
reg.RegEx := '"';
reg.Replacement := '';
reg.ReplaceAll;
end;
因程序需要，我想替换List这个数组中所有元素的双引号。但是reg.Subject始终都是List[0]的值，请问是什么原因呢？
怎么没看到把reg.subject更新到list里
for i := 0 to 49 do
begin
reg.Subject := List[i];
reg.RegEx := '"';
reg.Replacement := '';
reg.ReplaceAll;
List[i]:= reg.Subject; // <- 更新
label1.caption:= inttostr(i); // <- 测试循环
end;
具体代码如下：
Delphi(Pascal) code:
procedure GetList();
var
MyStr:String;
reg: TPerlRegEx;
regs: TPerlRegEx;
regd: TPerlRegEx;
regss: TPerlRegEx;
List: TStrings;
Lists: TStrings;
i: Integer;
begin
reg := TPerlRegEx.Create(nil);
regs := TPerlRegEx.Create(nil);
regd := TPerlRegEx.Create(nil);
regss := TPerlRegEx.Create(nil);
List := TStringList.Create;
Lists := TStringList.Create;
//MyStr是一个网页里
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
