Case 语句要怎么用??

L3nnon L3nnon 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
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;
...全文

相关推荐

评论 8
收藏 已收藏
分享
返回顶部
L3nnon
Delphi 5,944 成员 262,941 内容