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 static/image/common/back.gif
看上去像是把a到f的小写字母转换成大写字母

貌似不是的啊
页: [1]
查看完整版本: 有一个语句不是很明白