程序设计问题，用delphi做一个程序，有一个文本框和一个按钮，文本框李输入数字，点击按钮数字减半

---

首先在文本框的KeyPress 写入
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', #8, #13]) then
begin
ShowMessage('文本框物碰衡里只能为数字');
key := #0;
exit;
end;
end;
然后罩做写Button1Click事件
procedure TForm1.Button1Click(Sender: TObject);
var
num_str:string;
begin
num_str:=FloatToStr(strtofloat(Edit1.Text)/2);
Edit1.Text:=num_str;
end;
OK搞定！！！！！！！吵信！！！！！

---