这段代码是什么意思啊？很急，请教一下
procedure Tsalary_form.Edit2KeyPress(Sender: TObject; var Key: Char);
var
m:boolean;
begin
m:=(key<#8)or(key>#8)and(key<#45)or(key>#46)and(key<#48)or(key>#57);
if m then
key:=#0;
end;