性设置 (2)属性设置
(3) 程 序 设 计
procedure TForm1.Button1Click(Sender: TObj ect); var procedure w,x:real; TForm1.Button2Click(S begin if edit1.text='' then edit1.Text:='0'; ender: TObject); w:=strtofloat(edit1.Text); begin if w<=50 then x:=0.25*w edit1.Text:=''; else edit2.Text:=