兄弟们,怎么判断Edit控件中,输入的第一个字符是“中文字符”,还是“英文字符”? 程序中,要根据操作者输入的是“中文”还是“英文”,调用不同的处理程序, 可是样判断呢?,请大家指教。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 好象是这样,你试试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; 让我沉吧~~~ (急)关于FastReport打印简单表的问题 DHTMLEDIT发布的问题 200分高难度问题,解决立即给分(文件统计) 我现在编了一个小程序,使用quickrpt控件打印文件,在本机上是可以运行的,在别的机子上运行程序就出错了,是不是它还要什么运行库等东西 各位老大帮忙!!!! 如何使主键自动增值? 怎么得到两个日期之间的差值? 低价出售P2P即时通讯源码,无加密,组件齐全,调试非常简单方便! 怎么为我继承的一个系统空间添加一个属性阿, 急问: 动态创建IMAGE时,有时它的BRUSH的COLOR不能显示 急需文件备份系统的DELPHI源代码!!!!
procedure TForm1.Button1Click(Sender: TObject);
begin
if Ord(Edit1.Text[1]) > 127 then
ShowMessage('中文字符')
else
ShowMessage('英文字符');
end;
begin
if ByteType(Edit4.Text,1)=mbLeadByte then
ShowMessage('东方文字')
else
ShowMessage('英文');
end;