Delphi控制输入为数字或字母

2023-06-06 05:03•数据库•阅读 2239

Delphi 控制输入为数字或字母

if not (Key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then
begin
  Key := #0;
  ShowMessage('请输入数字或字母');
end;