edit中只能输入数字、小数点等等候，还能使用ctrl+c和ctrl+c的办法

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);procedure TForm1.Edit1KeyPress(Sender: TObject;