procedure TForm1.Button1Click(Sender: TObject); begin if Ord(Edit1.Text[1]) > 127 then ShowMessage('中文字符') else ShowMessage('英文字符'); end;或者procedure TForm2.Edit4Change(Sender: TObject); begin if ByteType(Edit4.Text,1)=mbLeadByte then ShowMessage('东方文字') else ShowMessage('英文'); end;
begin
if Ord(Edit1.Text[1]) > 127 then
ShowMessage('中文字符')
else
ShowMessage('英文字符');
end;或者procedure TForm2.Edit4Change(Sender: TObject);
begin
if ByteType(Edit4.Text,1)=mbLeadByte then
ShowMessage('东方文字')
else
ShowMessage('英文');
end;