// Match var REG: tperlregex; begin REG: = tperlregex on the right. create (NiL); Reg. subject: = 'delphi 6; Delphi 7; Delphi 2007; Delphi net'; Reg. regEx: = 'delphi (? = 2007 )';//? = Reg. replacement: = '◆ '; Reg. replaceall; showmessage (Reg. subject); // return value: Delphi 6; Delphi 7; ◆ 2007; Delphi net freeandnil (REG); end;
// Does not match var REG: tperlregex; begin REG: = tperlregex. create (NiL); Reg. subject: = 'delphi 6; Delphi 7; Delphi 2007; Delphi net'; Reg. regEx: = 'delphi (?! 2007 )';//?! Reg. replacement: = '◆ '; Reg. replaceall; showmessage (Reg. subject); // return value: ◆ 6; ◆ 7; Delphi 2007; ◆ net freeandnil (REG); end;
// Match the left var REG: tperlregex; begin REG: = tperlregex. create (NiL); Reg. subject: = '2014, $111,222, $333 '; Reg. regEx: = '(? <= ¥) \ D {3 }';//? <= Reg. Replacement: = '◆ '; Reg. replaceall; showmessage (Reg. Subject); // return: 111,222, ¥ ◆, ¥ ◆ freeandnil (REG); end;
// Mismatch left var REG: tperlregex; begin REG: = tperlregex. create (NiL); Reg. subject: = '2014, $111,222, $333 '; Reg. regEx: = '(? <! $) \ D {3 }';//? <! Reg. Replacement: = '◆ '; Reg. replaceall; showmessage (Reg. Subject); // return: ◆, ◆, ¥333, ¥444 freeandnil (REG); end;