Delphi判断字符串是否包含限制以外的字符 否则置空

本文整理自网络，侵删。

 
判断字符串是否包含限制以外的字符 否则置空
procedure TMainForm.cbSearchExit(Sender: TObject); //判断退出事件
var
J:Integer;
K:String;
begin
 K := TsEdit(Sender).Text;
for J:=1 to Length(K) do 
begin
if not(K[J] in ['0'..'9','a'..'z','A'..'Z']) then 
begin
TsEdit(Sender).Text:='';
end;
end;
end;
可以使用下列方法将不符合的字符突出显示出来
TsEdit(ctl).SelectAll
TsEdit(ctl).SelLength
TsEdit(ctl).SelStart
TsEdit(ctl).SelText
――――――――――――――――

原文链接：https://blog.csdn.net/u010431493/article/details/79785430
 

相关阅读 >>

Delphi 让"显示桌面"功能对你的窗口无效

Delphi 10.3 断点调试相关快捷键

Delphi设置屏幕分辨率的函数

Delphi tms web core webmemo 横竖滚动条

Delphi windows服务控制单元

Delphi 结束360safe和360保险箱进程 for Delphi

Delphi检测用户是否具有administrator权限

Delphi listbox1列表随机打乱

Delphi 数据库处理密码防止sql注入

Delphi 获取大于2g的物理内存大小

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

转载请注明出处：木庄网络博客 » Delphi判断字符串是否包含限制以外的字符 否则置空