第4章选择结构(Delphi).pptVIP

计算按钮的单击事件代码： var x,y:float; begin x:=strtofloat(edit1.text); if x=0 then y:=x*x+2*x else y:=1-2*x; edit2.text:=floattostr(y); end; （3）代码设计 begin if lowercase(edit1.Text) = abcd then panel1.Caption := 欢迎使用本系统! else panel1.Caption:= 对不起，口令错! ; edit1.setfocus; end； begin if lowercase(edit1.Text) = abcd then panel1.Caption := 欢迎使用本系统! else begin edit1.tag:=edit1.tag+1; if edit1.tag=3 then begin panel1.Caption:= no right ; groupbox1.enabled:=false;