cxCheckComboBox 数据库存取数据如何操作？

procedure SetCheckComboBox(ACBS: TcxCheckComboBox;
  AValue: string);
var
  i: Integer;
begin
  ACBS.Clear;
  for i := 0 to ACBS.Properties.Items.Count - 1 do
  begin
    if Pos(ACBS.Properties.Items[i].Description,AValue) > 0 then
      ACBS.States[i] := cbsChecked;
  end;  
end;
保存时，直接保存text内容；读取时，用上面这个方法，入参设置为cxcheckcombobox和数据库字段值（需要引用cxcheckbox单元）。