delphi 正则匹配日文

正则匹配日文

uses RegularExpressions; //相关单元

const

pattern ='[\x{3040}-\x{309F}\x{30A0}-\x{30FF}\x{31F0}-\x{31FF}]'; //测试用的表达式 

txt ='AAA1 ぁ-んァ-ヶ BBB2 AA11 BB22 A111 B222 AAAA'; //测试用的目标文本 

{是否匹配成功} 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

if TRegEx.IsMatch(txt, pattern) then 

begin 

ShowMessage('有匹配到'); 

end; 

end;