和下标有什么关系?代码如下:
procedure Tbuildup_fm.rgBuildChange(Sender: TObject);
begin
if rgBuild.Items[rgBuild.ItemIndex] = '拆卸' then
begin
.....
end ;
if rgBuild.Items[rgBuild.ItemIndex] = '组装' then
begin
....
end;end;
另外在窗体中已经设置好了items 和values.
procedure Tbuildup_fm.rgBuildChange(Sender: TObject);
begin
if rgBuild.Items[rgBuild.ItemIndex] = '拆卸' then
begin
.....
end ;
if rgBuild.Items[rgBuild.ItemIndex] = '组装' then
begin
....
end;end;
另外在窗体中已经设置好了items 和values.
解决方案 »
- 挑战极限 - 测试驱动开发实战及DUnit 使用
- 如何在文本框中实现像Word的字数统计功能和调用Word的字数统计功能?
- 急救,在delphi中如何判断打印机是否安装。
- 用DELHIP开发过考勤系统的进来看看,如何使自已的程序与IC考勤机对接?
- 如何通过程序控制打印机的纸张和默认的打印格式等?谢谢,祝大家很有钱!
- FastReport 的几个小问题
- 三喜临门,散分3000庆祝(之六)
- 大清早一来就发现收藏夹被clear了....
- 怎样使quickrep强制分页,详细内容在里面
- 大虾们帮个忙:TDBLookupComboBox问题
- 请教各位大吓,谁有能合并和自由变换表头的控件?有免费的下载地方吗?大大给分!
- OnMouseMove的问题。
procedure Tbuildup_fm.rgBuildChange(Sender: TObject);
begin if rgBuild.Items.Count = 0 then exit; //加入此行 if rgBuild.Items[rgBuild.ItemIndex] = '拆卸' then
begin
.....
end ;
if rgBuild.Items[rgBuild.ItemIndex] = '组装' then
begin
....
end;end;
begin if (rgBuild.ItemIndex < 0) or (rgBuild.ItemIndex >= rgBuild.Items.Count) then exit; //应是加入此行 if rgBuild.Items[rgBuild.ItemIndex] = '拆卸' then
begin
.....
end ;
if rgBuild.Items[rgBuild.ItemIndex] = '组装' then
begin
....
end;end;
我是想通过窗体给rgBuild对应的字段赋值。