Delphi 应用集合在TEdit 中输入限定的字符

1. 定义变量:

var

  Chars : set of Char;

 

2. 变量初始化

  Chars := ['0'..'9', 'A'..'Z', 'a'..'z', #8, #127]; // 仅限定数字,大小写字母 和删除键 backspace , delete

 

3. 在 TEdit 的 OnKeyPress 事件处理程序中 :

  if  not Key in Chars then Key := #0;  // 屏蔽其它键