和下标有什么关系?代码如下:
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.
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对应的字段赋值。