Question

还是一个delphi定义函数的问题,关于boolean类型的

下是一段代码:这段代码经常要用到,所以我想把他定义成一个函数,if key in [#65..#90,#97..#122] then //大小写字母的ascll码begin key:=#0;label1.Caption:='提示: 不能输入字母 ！':end;你就把代码写出来就可以了,我想参考下,,我在网上也找了些类似的,,太复杂,,看到头晕谢谢了

Answer 1

procedure isNotLetter(key: char);
begin
if key in [#65..#90,#97..#122] then //大小写字母的ascll码
begin
key:=#0;
form1.label1.Caption:='提示: 不能输入字母 ！';
end;
end;