兄弟们，怎么判断Edit控件中，输入的第一个字符是“中文字符”，还是“英文字符”？

Question

程序中，要根据操作者输入的是“中文”还是“英文”，调用不同的处理程序， 可是样判断呢？，请大家指教。

Answer 1

好象是这样，你试试
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Ord(Edit1.Text[1]) > 127 then
    ShowMessage('中文字符')
  else
    ShowMessage('英文字符');
end;

Answer 2

procedure TForm2.Edit4Change(Sender: TObject);
begin
  if ByteType(Edit4.Text,1)=mbLeadByte then
    ShowMessage('东方文字')
  else
    ShowMessage('英文');
end;