procedure TFrmBudgeMge.EdtBudgetYearKeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then key:=#0; //只能输入数字 if not (key in ['0'..'9',#46,#8]) then key:=#0; //只能输入数字和小数点 if not (key in ['a'..'z','A'..'Z']) then key:=#0;//只能输入字母 end;FormatFloat(0.00,v);
var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0; //只能输入数字
if not (key in ['0'..'9',#46,#8]) then key:=#0; //只能输入数字和小数点
if not (key in ['a'..'z','A'..'Z']) then key:=#0;//只能输入字母
end;FormatFloat(0.00,v);
来晚了 hoho