![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
klem4 |
![]()
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
j := 0;
for i := 0 to ComponentCount - 1 do
if components[i] is TCheckBox then
with (components[i] as TCheckBox) do begin
inc(j);
new.d[j] := Checked;
end;
Скорее всего в таком случае значение j не будет совпадать со значение номера компоненты TCheckBox и лучьше делать вручную ? Мне нужно следующее d[1] := CheckBox1.Checked;
d[2] := CheckBox2.Checked;
...
спсибо. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 24.07.2025 15:05 |