delphi 能控制输入全角数字吗

tigsin 2007-11-05 02:11:09
比如一个EDIT框 我想限制输入全角数字 能限制吗 谢谢 另外 限制输入拼音状态下的$ ^&能限制的了吗
...全文
82 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
tigsin 2007-11-06
  • 打赏
  • 举报
回复
如何只限制全角数字而不限制全角符号呢
jwpl190 2007-11-05
  • 打赏
  • 举报
回复
全角数字也是两个字节表示的而且第一个字节是163.
tigsin 2007-11-05
  • 打赏
  • 举报
回复
全角数字?
jwpl190 2007-11-05
  • 打赏
  • 举报
回复
小CASE。。。。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
st: PChar;
begin
if Key in ['$', '^', '&',#163] then
Key := #0;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧