powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / CheckListBox флажки из sql-запроса
6 сообщений из 6, страница 1 из 1
CheckListBox флажки из sql-запроса
    #39477648
matyukhin-ss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, помогите советом.
Собственно сабж. есть на форме CheckListBox, в него добавляется программно различные итемы. Пользователь будет выбирать какие ему нужны.
нашел такой кусок кода
Код: pascal
1.
2.
3.
4.
5.
6.
var
  ss : Set Of Byte;
...
for I := 0 to CheckListBox1.Items.Count - 1 do
      if CheckListBox1.checked[i]=(i In ss) then
        CheckListBox1.Checked[i] := true;


вопрос как переменной ss присвоить значение из запроса? т.е.
Код: pascal
1.
ss  := data_frm.ADOQuery1.FieldByName('s1').AsString;


сейчас, естественно ругается "Incompatible types: 'Set' and 'string'"

и наоборот, как в s1 записать ss ?
...
Рейтинг: 0 / 0
CheckListBox флажки из sql-запроса
    #39477664
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
matyukhin-ssнашел такой кусок кода

Он тебе не нужен. Выставляй флажок там же, где заполняешь итемы.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
CheckListBox флажки из sql-запроса
    #39477674
matyukhin-ss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dimitry Sibiryakov,

количество итемов различное может быть, в зависимости от условий. я сначала создаю форму, размещаю в ней компонент, добавляю возможные итемы, а потом делаю запрос, который заполняет мою форму значениями. я бы не хотел в базе лепить десятки полей под каждый итем. я планировал 1 поле - для 1 CheckListBox'a, в котором хранить индексы выбранных итемов
...
Рейтинг: 0 / 0
CheckListBox флажки из sql-запроса
    #39477685
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
matyukhin-ssя сначала создаю форму, размещаю в ней компонент, добавляю возможные итемы, а потом делаю
запрос, который заполняет мою форму значениями.

И в чём проблема при этом найти нужный итем и поставить ему галочку?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
CheckListBox флажки из sql-запроса
    #39477702
Фотография Exteris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
var
  ss : String;
...
for I := 0 to CheckListBox1.Items.Count - 1 do  CheckListBox1.Checked[i] := ss[i]='1';


ss вида '11101010101110'
...
Рейтинг: 0 / 0
CheckListBox флажки из sql-запроса
    #39477765
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чтение
Код: pascal
1.
2.
3.
4.
5.
6.
var
  ss : Cardinal;
...
ss  := data_frm.ADOQuery1.FieldByName('s1').AsInteger;
for I := 0 to CheckListBox1.Items.Count - 1 do
  CheckListBox1.checked[i] := (ss and (1 shl I)) <> 0;


Запись
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
var
  ss : Cardinal;
...
ss := 0;
for I := 0 to CheckListBox1.Items.Count - 1 do begin
  if CheckListBox1.checked[i] then
    ss := ss or (1 shl I);
end;
data_frm.ADOQuery1.FieldByName('s1').AsInteger := ss;
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / CheckListBox флажки из sql-запроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]