请教关于cxCheckGroup

[静远]

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)，但是我这里是固定了的。

请教！

[静远]

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

[静远]

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

[静远]

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
不知道有没有更合适的方法？

[bdmh]

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

[结束冬眠]

不用那么复杂吧？
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);