X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Получаем список выбранных ID, через запятую или другой разделитель
Код: function GetComboChecks(cxCheckComboBoxProperties: TcxCheckComboBoxProperties; vValues: Variant; sDelim: string = ','): string;
Var
i: Integer;
ACheckStates: TcxCheckStates;
begin
with cxCheckComboBoxProperties do
begin
items.BeginUpdate;
try
CalculateCheckStates(vValues, items, EditValueFormat, ACheckStates);
for I := 0 to items.Count - 1 do
if ACheckStates[i] = cbsChecked then
result := IntToStr(items[i].Tag) + sDelim + result;
if result <> '' then //получаем 101,12,1024,
Delete(result, Length(result), 1);//удаляем последнюю запятую
finally
items.EndUpdate;
end;//try
end;//with
//возвращаем список из выбранных ID через запятую: 101,12,1024
end;
|
----------
/не мы такие, жизнь такая/ |
|
помогите плиз.