Цикл по компонентам формы

@kira_1 · Регистрация: 16.11.2013

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

Подскажите, пожалуйста, как реализовать задачу.

На форме есть много разных Edit, Label. Мне нужно создать цикл, который бы прошел через Label14, Label15, ... , Label25 если этот компонент не пустой, то нужно считать первые две цифры из него и умножить на значения из Edit1, Edit2, ... , Edit12 соответственно. И найти сумму этих произведений.

Например, если Label14 не пустой, то считать с него первые две цифры и умножить на значение, считанное из Edit1.
Переходим к Label15, он пустой, переходим к Label16, считываем с него цифры, умножаем на значение из Edit3 и прибавляем к предыдущему произведению.

@gunslinger · 16.11.2014, 21:55

P.S.: не совсем понятно, что имеется в виду под первыми двумя цифрами Label. Если его Caption "состоит" из числа, то

C++
1
2
3
4
5
6
  double sum = 0;
  for (int i = 1; i <= 12; i++)
  {
    sum += StrToFloatDef(LeftStr(dynamic_cast<TLabel*>(FindComponent("Label" + IntToStr(i+13)))->Caption, 2), 0) *
           StrToFloatDef(dynamic_cast<TEdit*>(FindComponent("Edit" + IntToStr(i)))->Text, 0);
  }

Если имеется в виду "номер" Label (14, 15 и т.д.), то замени

C++
1
StrToFloatDef(LeftStr(dynamic_cast<TLabel*>(FindComponent("Label" + IntToStr(i+13)))->Caption, 2), 0)

на

C++
1
(i+13)

P.S.: LeftStr требует подключения StrUtils.

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@kira_1 0 / 0 / 2 Регистрация: 16.11.2013 Сообщений: 59

	Цикл по компонентам формы 16.11.2014, 20:50. Показов 2608. Ответов 1 Метки нет (Все метки) Подскажите, пожалуйста, как реализовать задачу. На форме есть много разных Edit, Label. Мне нужно создать цикл, который бы прошел через Label14, Label15, ... , Label25 если этот компонент не пустой, то нужно считать первые две цифры из него и умножить на значения из Edit1, Edit2, ... , Edit12 соответственно. И найти сумму этих произведений. Например, если Label14 не пустой, то считать с него первые две цифры и умножить на значение, считанное из Edit1. Переходим к Label15, он пустой, переходим к Label16, считываем с него цифры, умножаем на значение из Edit3 и прибавляем к предыдущему произведению. 0

Цикл по компонентам формы

Решение