用正则表达式取字符串中的中文

在delphi中,如何用正则表达式取字符串中的中文?
如：String str = "１２中３４国５６"取得后的结果应该为：str="中国";
急,谢谢！

解决方案 »

  1.   


      str:=Edit1.Text;
      for i:=length(str) downto 1 do
        if ord(str[i])<128 then  delete(str,i,1);
      Edit2.Text:=str;我实验是可以，但是128这个数我也只是看到不一样，不能确定行不行
      

  2.   

    rcaicc要注意了，你这样写不好，但是思路不错
    楼主的要求很难办。假如是日文和中文混合，rcaicc的程序就不行了
      

  3.   

    www.playicq.com上好像有一个正则表达式的类
    你可以去下来研究一下！
      

  4.   

    "１２中３４国５６"中的123456当然是数字,当时提问时候没注意到,SORRY!