Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / CalculateCheckStates() без TcxCheckGroup / 7 сообщений из 7, страница 1 из 1
02.07.2018, 16:20
    #39668427
X11
X11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
Задача простая - сохранить и прочитать те значения, что выбрал пользователь. Но читать при старте приложения нужно без самой визуальной компоненты, т.к. она нужна только на время настройки приложения.
В настройках приложения на форме лежит TcxCheckGroup. Пользователь что-то выбирает и это нужно куда-то сохранить. Сохраняю в базу, а при открытии окна настроек читаю, т.е. здесь всё просто - работаю со свойством EditValue и этого достаточно.

Но когда нужно прочесть данные в массив TcxCheckStates, то CalculateCheckStates() требует вторым параметром TcxCheckGroup.Properties.Items, а Items - это интерфейс IcxCheckItems.
Я с интерфейсами не работал :( как его создать или не надо?
Т.е. нужно как-то "понять" без визуальной компоненты, что выбрал пользователь.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2018, 11:56
    #39668698
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
Он требует не интерфейс а объект, поддерживающий этот интерфейс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2018, 12:16
    #39668717
X11
X11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
Ну да, пришлось создавать весь TcxCheckGroup невизуально.
Сейчас какой-то затык с калькуляцией.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Var
  s: string;
  AValue: Variant;
  CheckStates: TcxCheckStates;
  CheckGroup: TcxCheckGroup;
begin
  s := GetOptionParamByName('param1');
// в s получаем значение: ;0,2,4

  CheckGroup := TcxCheckGroup.Create(self);
//создаем 5 чекбоксов
  CheckGroup.Properties.Items.Add;
  CheckGroup.Properties.Items.Add;
  CheckGroup.Properties.Items.Add;
  CheckGroup.Properties.Items.Add;
  CheckGroup.Properties.Items.Add;

  CheckGroup.Properties.EditValueFormat := cvfIndices;
  CheckGroup.EditValue := s;

  SetLength(CheckStates, 5);// массив, чтобы из него прочитать состояние чекбоксов

  try

    //загоняем прочитанные из базы параметры в CheckStates
    CalculateCheckStates(CheckGroup.EditValue, CheckGroup.Properties.Items, CheckGroup.Properties.EditValueFormat, CheckStates);

//читаем значение чекбоксов
if CheckStates[0] = cbsChecked then ...
if CheckStates[1] = cbsChecked then ...
...
if CheckStates[4] = cbsChecked then ...



Вот это всё никак не упростить? Разве что самому парсить строку ";0,2,4". Ну, в принципе, не сложно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2018, 14:17
    #39668824
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
Задача простая - сохранить и прочитать те значения, что выбрал пользователь.
Текст прочитали, текст сохранили, проблем нет.
Зачем переводить этот текст в ЧекГруппу ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2018, 14:19
    #39668830
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
может вместо
Код: pascal
1.
if CheckStates[0] = cbsChecked then ...


сделать
Код: pascal
1.
if Pos(',2,',S)>0 then ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2018, 14:36
    #39668849
X11
X11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
DimaBrЗачем переводить этот текст в ЧекГруппу ?

Мне нужно заполнить структуру Record и держать её в памяти.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2018, 20:38
    #39669104
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CalculateCheckStates() без TcxCheckGroup
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
TMyRec = record
  Check1: boolean;
  Check2: boolean;
  Check3: boolean;
end;


MyRec.Check2 := Pos(',2,',S)>0;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / CalculateCheckStates() без TcxCheckGroup / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 351ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040670]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 210ms
total:  351ms
x
x
Закрыть


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