ÔÚ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ÊÇÒ»¸öÍøÒ³Àï