kwhw.net
当前位置:首页 >> DElphi CAsE >>

DElphi CAsE

var A: integer; B, C, D: Double;begin A := StrToIntDef(edit1.text, 0); B := StrToFloatDef(edit2.text, 0); if ComboBox1.itemindex = -1 then label1.Caption := '估算价:'; if A

procedure pctab(value:integer); begin case value of 1:xxxx; 2:xxxx; 3:xxxx; 4:xxxx; 5:xxxx; 6:xxxx; end; end;

Case 语句 If...Then…Else 语句适合选项较少的情况,如果有很多选项的话利用If 语句就比较麻烦,在这种情况下,Case 语句就容易多了。Case 语句的语法如下: case of :; :; else ; end; 下面这个例子中的S 为Char 类型。当用户输入一个字符后按...

//Delphi里是case...of...elsevarage:Integer;str:String ;begin age:=18; case age of 18:str:="我今年18岁"; else:str:="我今年不是18岁"; end;end;

您的case a of '人事部': '财务部': '技术部': 是不对呀,case a of 这个的a只能是整型数字呀!您可以这样做,用ComboBox1.ItemIndex属性来做: i:= ComboBox1..ItemIndex; case i of 0: ADOTable1.FieldByName('pid').AsString:= '0';//对应***...

呵呵..... else后面最好加上begin... end;毕竟,你写的不止一句

The case statement case I of 1..5: Caption := 'Low'; 6..9: Caption := 'High'; 0, 10..99: Caption := 'Out of range'; else Caption := ''; end;

case是个分支语句。就是按照case ... of 中间的那个内容,对应是什么,就运行那个后面的语句。比如succ(sun)表示sun后面的那个元素,就应该是 mon 。然后case mon of,就是只运行mon后面的那个语句,也就是write('monday');然后就跳到end后面了。

case是个分支语句。就是按照case ... of 中间的那个内容,对应是什么,就运行那个后面的语句。比如succ(sun)表示sun后面的那个元素,就应该是 mon 。然后case mon of,就是只运行mon后面的那个语句,也就是write('monday');然后就跳到end后面了。

少了1个end procedure TForm1.RadioGroup1Click(Sender: TObject); //对齐设置 begin case RadioGroup1.ItemIndex of 0:Memo1.Alignment:=taLeftJustify; 1:Memo1.Alignment:=taCenter; 2:Memo1.Alignment:=taRightJustify; end; end; end.

网站首页 | 网站地图
All rights reserved Powered by www.kwhw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com