Case 语句要怎么用？？

L3nnon 2011-10-15 02:33:07

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of <--ItemIndex是什么，有什么功能？？
0: Color := clRed;
1: Color := clYellow;
2: Color := clBlue;
3: Color := clLime;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Str : string;
begin
Str := RadioGroup1.Items[RadioGroup1.ItemIndex];
case Length(Str) of
1: Color := clRed;
2: Color := clYellow;
3: Color := clBlue;
4: Color := clLime;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin //Items.CommaText是什么，有什么功能？
RadioGroup1.Items.CommaText := 'a, bb, ccc, dddd';

//ItemIndex又是什么？？？
RadioGroup1.ItemIndex := 0;
end;

...全文

124 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

L3nnon 2011-10-15

打赏
举报

[Quote=引用 7 楼 adslan 的回复:]

Case 多项选择一
1楼说得挺好
你多用几次就理解了
[/Quote]
谢谢咯~~ 理解了~~

ADSLAN 2011-10-15

打赏
举报

Case 多项选择一
1楼说得挺好
你多用几次就理解了

L3nnon 2011-10-15

打赏
举报

[Quote=引用 1 楼 bdmh 的回复:]

ItemIndex是RadioGroup1种选中的项的索引

//这样RadioGroup1中就会添加4项，显示文字分别是a, bb, ccc, dddd
RadioGroup1.Items.CommaText := 'a, bb, ccc, dddd';

RadioGroup1.ItemIndex := 0;让第一项选中
[/Quote]
Case 是什么？？

L3nnon 2011-10-15

打赏
举报

[Quote=引用 2 楼 hongss 的回复:]

去看看RadioGroup1控件的属性吧，里边都有

ItemIndex返回单选分组框中被选择的项的序号
[/Quote]
在哪里？？怎么找？？

sun5152 2011-10-15

打赏
举报

都是大佬

爱蹄子的羊头 2011-10-15

打赏
举报

楼上答的好快啊。

hongss 2011-10-15

打赏
举报

去看看RadioGroup1控件的属性吧，里边都有

ItemIndex返回单选分组框中被选择的项的序号

bdmh 2011-10-15

打赏
举报

ItemIndex是RadioGroup1种选中的项的索引

//这样RadioGroup1中就会添加4项，显示文字分别是a, bb, ccc, dddd
RadioGroup1.Items.CommaText := 'a, bb, ccc, dddd';

RadioGroup1.ItemIndex := 0;让第一项选中