如何在edit中只输入数字和小数点啊？？我的程序怎么不行啊？？(50分)

jacklee · 2002-08-21

procedure Tflxs.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8,#13,#110]) then
begin
key:=#0;

end;
end;

desertsmoke · 2002-08-21

if not(key in['0'..'9','.']) then

kds · 2002-08-21

if not (key in ['0'..'9','.',#8]) then
begin
application.MessageBox('输入的数据类型不正确！','提示',mb_ok+mb_iconwarning);
key:=#0;
end;

linsb · 2002-08-21

if not (key in ['0'..'9','.']) and (key <> #8) then key := #0;

jsxjd · 2002-08-21

放在 KeyUp事件中执行

太平洋 · 2002-08-21

if not(key in['0'..'9',#8,#13,#46,#110]) then
key:=#0;

pcc_mmz1 · 2002-08-21

if not (key in ['0'..'9','.',#8]) then begin
showmessage('输入数据不正确！');
key:=#0;
end;

jacklee · 2002-08-29

多人接受答案了。