Delphi 正則表達式語法(3): 匹配范圍

　// [A-Z]: 匹配所有大寫字母

var reg: TPerlRegEx;begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'CodeGear Delphi 2007 for Win32';
　reg.RegEx　 := '[A-Z]';
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆ode◆ear ◆elphi 2007 for ◆in32
　FreeAndNil(reg);
end;

　　// [a-z]: 匹配所有小寫字母

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'CodeGear Delphi 2007 for Win32';
　reg.RegEx　 := '[a-z]';
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: C◆◆◆G◆◆◆ D◆◆◆◆◆ 2007 ◆◆◆ W◆◆32
　FreeAndNil(reg);
end;

　　// [0-9]: 匹配所有數字

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'CodeGear Delphi 2007 for Win32';
　reg.RegEx　 := '[0-9]';
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: CodeGear Delphi ◆◆◆◆ for Win◆◆
　FreeAndNil(reg);
end;

　　//匹配幾個范圍

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'CodeGear Delphi 2007 for Win32';
　reg.RegEx　 := '[C-Do-p0-2]'; //大寫字母: C-D; 小寫字母: o-p; 數字: 0-2
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆◆deGear ◆el◆hi ◆◆◆7 f◆r Win3◆
　FreeAndNil(reg);
end;

　　//匹配 [] 中的所有

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'CodeGear Delphi 2007 for Win32';
　reg.RegEx　 := '[Ci2]'; //大寫字母: C; 小寫字母: i; 數字: 2
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆odeGear Delph◆ ◆007 for W◆n3◆
　FreeAndNil(reg);
end;// ^ 排除 [] 中的所有var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := 'CodeGear Delphi 2007 for Win32';
　reg.RegEx　 := '[^Ci0-2]'; //這裡排除了大寫字母: C; 小寫字母: i; 數字: 0-2
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: C◆◆◆◆◆◆◆◆◆◆◆◆◆i◆200◆◆◆◆◆◆◆i◆◆2
　FreeAndNil(reg);
end;