您所在位置：主题：紧急求救！！！！
拉毛
[专家分：0] 发布于 2006-05-12 11:52:00
这段代码是什么意思？
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;
谢谢！！
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;
谢谢！！
