Question

Delphi Edit中如何判断输入的是不是中文

Delphi Edit中如何判断输入的是不是中文？如何判断输入的是不是字母？

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['a'..'z','A'..'Z'] then
application.MessageBox('字母','提示',mb_ok);
if key>char(128) then
application.MessageBox('汉字','提示',mb_ok);end;

Answer 2

英文的话 。你可以声明一个英文字母的数组 。if not in ，在onchange里就报错。中文的话有点不好判断

Answer 3

判别中文 只要判别ASCII是否大于128就行ord(edit1.text[i]);