代码解释(0分)

a:=(key<#8)or((key>#8)and(key<#13))or((key>#13)and(key<#46))or((key>#46)and(key<#48))or(key>#57);
if a then key:=#0;

请问这两句是什么意思

a:= (key<#8)or //如果按下的键值介于<8，A为True
((key>#8)and(key<#13))or //如果按下的键值介于（8～13），A为True
((key>#13)and(key<#46))or //如果按下的键值介于（13～46），A为True
((key>#46)and(key<#48))or //如果按下的键值介于（46～48），A为True
(key>#57); //如果介于（57～，A为True
//这样容易理解些
a:=(Key in[#0..#7,#9..#12,#14..#45,#47])//Key不为删除键#8、Key不为回车键
or(Key>#57);
这个代码写的太臭，不如这样：
a:=not(Key in[#8,#13,#46,#48..#56]);//

很明显，写那代码的人原来是写C或者C++的。