delphi 屏蔽特殊字符

本文整理自网络，侵删。

 你伪码错误啦!
if Key in [#92,#47,#58,#42,#63,#34,#60,#62,#124] then
Key := #0;
不知道伪码也可以这样
if Key in ['\','/',':','*','?','"','<','>','|'] then
Key := #0;
查伪码可以用ord查,如showmessage(inttostr(ord('\'))) 

相关阅读 >>

Delphi 实现程序开机自动启动

Delphi在64位系统下读写注册表

Delphi实现类似android锁屏的密码锁控件

Delphi xe5 android toast

Delphi 下 vclzip控件的简单使用

Delphi hook 指定程序窗体和控件的 wndproc

Delphi windows的消息传递--消息盒子

Delphi 中的split 函数

Delphi+mysql:tadoquery使用插入中文乱码解决方法

Delphi 解决Delphi indy10下 utf8码转换的问题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 屏蔽特殊字符