procedure TDataimportForm.StringGrid1KeyPress(Sender: TObject;
var Key: Char);
begin
if not (key in['0'..'9',#1,#2,#3,#4,#5,#6,#7,#8,#9,#13,#32]) then
begin
end;
end; - 的key值是多少
var Key: Char);
begin
if not (key in['0'..'9',#1,#2,#3,#4,#5,#6,#7,#8,#9,#13,#32]) then
begin
end;
end; - 的key值是多少
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货