edit中,如果用来输入浮点数的时候,会有0.99.00的情况发生,解决办法:
procedure TfmCESInput.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9','.']) then key:=#0; //限制只能输入数字和小数点
if (key='.') and (pos('.',Edit1.Text)>0) then key:=#0;//如果多于1个小数点则清,只有这样才能防止输入多个
end;