Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с CheckBox

Автор: RomaWise 17.9.2014, 11:58

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

Автор: Keeper89 17.9.2014, 14:40

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

Автор: drkot 18.9.2014, 11:24

Цитата(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;