有一个语句不是很明白

woawn · 发表于 2012-6-21 15:56:10

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If (Key >= 'a') And (Key <= 'f') Then

Key := CHR(ORD(Key) - 32);

end;

这个是要实现的是什么功能

aminghanhua · 发表于 2012-6-21 15:56:11

貌似是在a与f间限制录入小写字符

玩酷子弟lv · 发表于 2012-6-21 19:33:04

看上去像是把a到f的小写字母转换成大写字母

woawn · 发表于 2012-6-21 19:37:06

玩酷子弟lv 发表于 2012-6-21 19:33

登录/注册后可看大图

看上去像是把a到f的小写字母转换成大写字母

貌似不是的啊

账号		自动登录	找回密码
密码			立即注册