对于全角的'（'怎么截取

Question

如果edit1.Text:='中国(天津)'
我下面的语句可以截取成'中国'
edit2.Text:=MidStr(edit1.Text,1,pos('(',edit1.Text)-1);
但是如果edit1.Text:='中国（天津）'  //括号成了全角就不能了我试过edit2.Text:=MidStr(edit1.Text,1,pos('（',edit1.Text)-1);  //但是报错

Answer 1

别用MidStr，用Copy  Edit1.Text := '中国(天津)';
  Edit2.Text := Copy(Edit1.Text, 1 , Pos('(', Edit1.Text) - 1);  Edit1.Text := '中国（天津）';
  Edit2.Text := Copy(Edit1.Text, 1 , Pos('（', Edit1.Text) - 1);

Answer 2

edit2.Text:=MidStr(edit1.Text,1,pos('（',WideString(edit1.Text))-1);

Answer 3

用MidBStr()
  edit1.Text:='中国（天津）';
  Edit2.Text:= MidBStr(edit1.Text,1,pos('（',edit1.Text)-1);