Имеется функция написанная другим программистом (К сожалению другую написать не получится и использовать придется только ее. Имеем то что имеем) Функция вызывает чек бокс с мульти выбором элементов и принимает 3 элемента и возвращает Bool:
- Заголовок окна "String"
- Варианты выбора "String"
- Переменная типа Integer, куда и будет возращено номер выбранного элемента
function SelectMultiVariantDialog(aTitle: String; aVariant: String; var aTupel: Integer): Boolean;
И так чек бокс вызывается и в переменную Tupel возвращается число, но возвращается не индекс выбранного элемента, а суммы элементов, то есть
При выборе элемента 1 = 1
, 2 = 2
, 3 = 4
, 4 = 8
, 5 = 16
, 6 = 32
, 7 = 64
, 8 = 128
в переменную заносится соответствующее значение
И вот вопрос, при выборе множества элементов выдает сумму соответствующих значений, то есть 6 и 7 элемент нам выдаст в переменной 96. Как мне на основании этого определить какие элементы были выбраны. Может кто ни будь подскажет.
P.S. через aVariant я передаю варианты выбора для пользователя. Например:
- 1 3001
- 2 3002
- 3 3003
- ....
И даю возможность выбрать несколько вариантов. После выбора в aTupel передаётся битовое значение выбранного элемента или сумма битовых элементов(если выбрано несколько)
Я пытаюсь понять после получение значение в переменную aTupel, как мне понять какие элементы были выбраны, Например выбрали 1 и 2 вариант и теперь хочу получить значения выбранных элементов чтоб в дальнейшем можно было передать значения 3001 и 3002 передать для обработки в sql запрос(это уже отдельная история. И там все готово)
var aTupel: integer;
begin
SelectMultiVariantDialog('Пожалуйста выберите событие',
'Событие генерации отчёта 3001|Событие генерации отчёта 3002|' +
'Событие генерации отчёта 3003|Событие генерации отчёта 3004|',
aTupel);
end;
В SQL хочу передать эти события
where code in ('3001,3003,3007')
P.S.S. Я попробовал слепить то что мне тут порекомендовали и вроде получилось то что я ожидал. Представляю мое решение, вдруг кто посоветует более изящное решение
const ET_ZERO = $00;
const ET_ONE = $01;
const ET_TWO = $02;
const ET_THREE = $04;
const ET_FOUR = $08;
const ET_FIVE = $10;
const ET_SIX = $20;
const ET_SEVEN = $40;
const ET_EIGHT = $80;
var iActionsMask: integer;
var sActions: String;
begin
if iActionsMask <= 0 then
begin
if not SelectMultiVariantDialog('Выбирите события для получение отчета!',
'3001- аааа|3002- бббб|' +
'3003- вввв|3004- гггг|' +
'3005- дддд', iActionsMask) then Exit;
//ShowMessage(IntToStr(iActionsMask));
if iActionsMask <= 0 then
begin
ShowMessage('Ничего не выбрано!');
Exit;
end
else
begin
sActions:='';
if (iActionsMask and ET_ZERO) > 0 then
if Length(sActions) > 0 then sActions := sActions + ', 3001' else sActions := '3001';
if (iActionsMask and ET_ONE) > 0 then
if Length(sActions) > 0 then sActions := sActions + ', 3002' else sActions := '3002';
if (iActionsMask and ET_TWO) > 0 then
if Length(sActions) > 0 then sActions := sActions + ', 3003' else sActions := '3003';
if (iActionsMask and ET_THREE) > 0 then
if Length(sActions) > 0 then sActions := sActions + ', 3004' else sActions := '3004';
if (iActionsMask and ET_FOUR) > 0 then
if Length(sActions) > 0 then sActions := sActions + ', 3005' else sActions := '3005';
end;
end;
//ShowMessage('Выбраны позиции ' + sActions);
end;
Правда я переименовал переменные и
aTupel
, смотрите сколько элементов было в списке, потом в цикле (как MBo показал) перебираете элементы из списка и вычленяете их коды и собираете эти коды в новую строку, которую потом в SQL и отдаете. Скорее всего код можно упростить и отрефакторить, но это уже по договору подряда ;-)