VPF::Работа с CheckBox - Форум программистов

RomaWise

Дата 17.9.2014, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 10.9.2014

Репутация: нет
Всего: нет

Например мы вводим в едит цифры, выбираем нужные, жмем на кнопку и он нам высчитывает среднеарифметическое? Как это можно сделать?

Это сообщение отредактировал(а) RomaWise - 17.9.2014, 11:59

Присоединённый файл ( Кол-во скачиваний: 14 )

18693.jpg 9,30 Kb

Keeper89

Дата 17.9.2014, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

RomaWise, проверить состояние каждого чекбокса на Checked = True. И потом соответствующее поле складывать. Но в целом, подход кривой получается.

Это сообщение отредактировал(а) Keeper89 - 17.9.2014, 14:41

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

drkot

Дата 18.9.2014, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8

Цитата(Keeper89 @ 17.9.2014, 15:40

)

подход кривой получается

конечно не идеал, но похоже это школьная поделка, так что не стоит сильно судить...

RomaWise,
если предполагается использовать целые числа, то можно сделать более интересную реализацию...
В обработчике TEdit.OnKeyUp прописать CheckBoxXX.Tag:= StrToInt(EditXX.Text);

Код


for i:=1 to 4 do begin
  TempCheckBox:= FindChildControl('CheckBox' + IntToStr(i));
  if TempCheckBox.Checked then Sum:= Sum + TempCheckBox.Tag;
end;
Sum:= Sum / i;

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »