Question

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

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

Answer 1

这样就行了procedure NotAlloweLetter(var key: Char);
begin
if key in [#65..#90,#97..#122] then //大小写字母的ascll码
begin
key:=#0;
end;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
NotAlloweLetter(key);
end;

Answer 2

if key in key:=#0end;