主页
语言基础/算法/系统设计
数据库相关
图形处理/多媒体
网络通信/分布式开发
VCL组件开发及应用
Windows SDK/API
问答

请教关于cxCheckGroup

静远 2010-03-25 11:28:20

cxCheckGroup中有六个Items，在数据库中的值分别存储为Value：005，010，015，020，025，030（char(3)）
当选中第一个Items时返回005，选择第二个时返回010，依此；
当选中第一个和第二个时返回005和010，选中第二个和第五个时返回010和025，依此；
同理，当已知005时第一个被选中，依此；
当已知005和010时第一个和第二个被选中，依此；

cxCheckGroup似乎是没有ItemIndex这样的属性。

不知道该如何设置呢？

如果Items在数据库的值没有自定义，可以通过cxCheckGroup的(VarToStr(EditValue) & Value = VarToStr(EditValue))来获取相应结果(EditValueFormat设置为evInteger)，但是我这里是固定了的。

请教！

...全文

5 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

结束冬眠 2012-04-18

不用那么复杂吧？
IF POS('0',cxCheckGroup1.EditValue)>0 then
SPC_PAD1:= '【测试点开孔】' else
SPC_PAD1:= '';
IF POS('1',cxCheckGroup1.EditValue)>0 then
SPC_PAD2:= '【单独焊盘开孔】' else
SPC_PAD2:= '';
SPC_PAD:=SPC_PAD1+SPC_PAD2;
ShowMessage(SPC_PAD);

回复赞

bdmh 2010-03-25

有什么办法，自己根据选中的去组合

回复赞

静远 2010-03-25



procedure TForm27.Button1Click(Sender: TObject);

var

  i, j: Integer;

  S: string;

  StrLst: TStrings;

begin

  S := cg.EditValue;

  StrLst := TStringList.Create;

  for i := 1 to Length(S) do

  begin

    if (S[i] = '1') then

    StrLst.Add(IntToStr(5 * i));

  end;

  for j := 0 to StrLst.Count - 1 do

  ShowMessage(StrLst[j]);

  FreeAndNil(StrLst);

end;

这样的思路，把cxCheckGroup的EditValueFormat设置为cvfStatesString
不知道有没有更合适的方法？

回复赞

静远 2010-03-25

如果是一一列举的话会有几十种组合

回复赞

静远 2010-03-25

up，不知道有没有更好点的方法？

回复赞

发动态

发帖子

Delphi

创建于2007-08-02

加入

4813

社区成员

26.2w+

社区内容

Delphi 开发及应用

申请成为版主

社区公告

暂无公告