Получение значений выбранных элементов

@Adordin · Регистрация: 21.01.2020

Студворк — интернет-сервис помощи студентам

Имеется функция написанная другим программистом (К сожалению другую написать не получится и использовать придется только ее. Имеем то что имеем) Функция вызывает чек бокс с мульти выбором элементов и принимает 3 элемента и возвращает Bool:

- Заголовок окна "String"
- Варианты выбора "String"
- Переменная типа Integer, куда и будет возращено номер выбранного элемента

Delphi
1
function ShowMultiSelecrBox (Title:String, Variant:String, Tupel: Integer):boolean;

И так чек бокс вызывается и в переменную Tupel возвращается число, но возвращается не индекс выбранного элемента, а суммы элементов, то есть При выборе элемента 1 = 1, 2 = 2, 3 = 4, 4 = 8, 5 = 16, 6 = 32, 7 = 64, 8 = 128 в переменную заносится соответствующее значение

И вот вопрос, при выборе множества элементов выдает сумму соответствующих значений, то есть 6 и 7 элемент нам выдаст в переменной 96. Как мне на основании этого определить какие элементы были выбраны. Может кто ни будь подскажет.

@Adordin · 11.12.2022, 10:51 **[ТС]**

Хорошо. Более подробно опишу ситуацию
P.S. через aVariant я передаю варианты выбора для пользователя. Например:

1 3001
2 3002
3 3003
....
И даю возможность выбрать несколько вариантов. После выбора в Tupel передаётся битовое значение выбранного элемента или сумма битовых элементов(если выбрано несколько)

Я пытаюсь понять после получение значение в переменную Tupel, как мне понять какие элементы были выбраны, Например выбрали 1 и 2 вариант и теперь хочу получить значения выбранных элементов чтоб в дальнейшем можно было передать значения 3001 и 3002 передать для обработки в sql запрос(это уже отдельная история. И там все готово)

Delphi
1
2
3
4
5
6
7
8
9
    
var aTupel: integer;
 
begin
  ShowMultiSelectBox('Пожалуйста выберите событие',
    'Событие генерации отчёта 3001|Событие генерации отчёта 3002|' +
    'Событие генерации отчёта 3003|Событие генерации отчёта 3004|',
    aTupel);
end;

В SQL хочу передать эти события

SQL
1
  WHERE code IN ('3001,3002')

@AzAtom · 11.12.2022, 15:27

Сообщение от Adordin

через aVariant я передаю варианты выбора для пользователя. Например:
1 3001
2 3002
3 3003

То есть, ты в aVariant передаёшь одну строку, в которой пункты разделены каким-то разделителем. Я в предыдущем сообщении показал, как вытащить из строки те пункты, которые соответствуют установленным битам в Tupel, то есть, установленным галкам в окне выбора.

Добавлено через 1 минуту
Ну и добавить их в строку типа "WHERE code IN ('3001,3002')" дальше не составит труда.

@Adordin · 11.12.2022, 18:25 **[ТС]**

Сообщение от AzAtom

То есть, ты в aVariant передаёшь одну строку, в которой пункты разделены каким-то разделителем. Я в предыдущем сообщении показал, как вытащить из строки те пункты, которые соответствуют установленным битам в Tupel, то есть, установленным галкам в окне выбора.

Спасибо большое!

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ По ссылке 403. Не очень информативно такую ссылку постить. Запись от Usaga размещена Сегодня в 06:46 . . .
сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .