第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; end else panel1.Caption:= 对不起，口令错 ; end; end； 例:促销办法：1000元以上，95折；2000元以上，9折；3000元以上，85折；5000元以上，8折。 设x记录购物额、y记录优惠办法 x:=strtofloat(edit1.text); case x of case x1000 and x=2000: y:=0.95*x; case x2000 and x=3000: y:=0.9*x; …… end; button1的单击事件代码: procedure TForm1.Button1Click(Sender: TObject); var x,y:real; begin if edit1.text= then edit1.text:=0; x:=strtofloat(edit1.text); case trunc(x/1000) of 0: y:=x; 1: y:=0.95*x; 2: y:=0.9*x; 3,4: y:=0.85*x; else y:=0.8*x; end; button1.Caption:=floattostr(y); end; 具有加、减、乘、除功能的计算器 begin case flag of 0: temp:=temp+strtofloat(edit1.Text); 1: temp:=temp-strtofloat(edit1.Text); end; edit1.Text:=floattostr(temp); end; 作业2： 设计具有四则运算功能的计算器； 常用属性:caption, kind, hint,showhint Caption: 标题 Kind: 枚举型，决定按钮种类，如bkOK、 bkCancel、bkHelp等。 Glyph: 为控件指定一个.bmp文件，显示在按钮表面。 Hint: 当光标停于某控件时显示该属性值内容 Showhint: hint通过showhint设置为true起作用 例：button1控件的hint和showhint设置 4.4.2 checkbox控件 复选框CheckBox是一个旁边带有文本说明的小方框。具有选中和未被选中两种状态，选中方框为打钩“√”标志，此时，其属性checked值为真 。 s:= ; if CheckBox1.Checked then s := s + 钓鱼、; if CheckBox2.Checked then s := s + 读书、; if CheckBox3.Checked then s := s + 下棋、; if CheckBox4.Checked then s := s + 打球、; memo1.Lines.Strings[0] := 爱好： + copy(s,0,length(s)-2); // 或 memo1.Lines.ad