Работа с CheckBox

[Roma30]

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

[Serge_Bliznykov]

ваша задача решается перебором контролов на форме.
Только Вам нужно будет решить одну "маленькую" техническую проблемку - как связаны чекбоксы с Edit'ами.

вариантов много. Начиная от массива связей (какой checknox c каким Edit'ом связана) и заканчивая прописыванием поля TAG в нужных Edit'ах...

[indexx]

Думаю в данном случае нет смысла что-то усложнять, и будет достаточно простых связок if ... then

[Roma30]

пример на один чекбокс не покажешь?

[Serge_Bliznykov]

Сообщение от Roma30

пример на один чекбокс не покажешь?

Roma30, Вы к кому обращаетесь?

indexx предлагает такой вариант:

sum := 0.0;
countSum := 0;
if CheckBox1.Checked then begin
  sum := sum + StrToIntDef(Edit1.Text, 0); {можно StrToFloat, если нужны вещественные числа}
  inc(countSum)
end;

if CheckBox2.Checked then begin
  sum := sum + StrToIntDef(Edit2.Text, 0); {можно StrToFloat, если нужны вещественные числа}
  inc(countSum)
end;

....

if CheckBox4.Checked then begin
  sum := sum + StrToIntDef(Edit4.Text, 0); {можно StrToFloat, если нужны вещественные числа}
  inc(countSum)
end;

if  countSum 
then ShowMessage('Ни одно значение не выбрано, считать нечего!')
else  ShowMessage(' среднеарифметическое = '+FloatToStr( sum / countSum) );

Пример понятен?

[Roma30]

Я сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var
   a,b,c,d,e:real;
begin

if CheckBox1.Checked=True then a:=StrToFloat(Edit1.text) else exit;
if CheckBox2.Checked=True then b:=StrToFloat(Edit2.text) else exit;
if CheckBox3.Checked=True then c:=StrToFloat(Edit3.text) else exit;
if CheckBox4.Checked=True then d:=StrToFloat(Edit4.text) else exit;


e:=(a+b+c+d)/4;
Edit5.text:=FloatToStrF(e,ffFixed,8,2);

end;

Из этого можно что-то сделать дальше?

[Serge_Bliznykov]

if CheckBox1.Checked=True then

1) масло маслянное.. пишите просто:

if CheckBox1.Checked then ...

2) нельзя использовать переменные не иницилизируя их.

var
   a,b,c,d,e:real;
begin
  a := 0; b := 0; c := 0; d := 0;

3) Вы решаете задачу: "Найти среднеарифметическое ЧЕТЫРЁХ чисел, для отмеченных - брать значения из Edit, для неотмеченных брать НОЛЬ"

в моём примере среднеарифметическое находится среди отмеченных значений (отметите одно - будет среднее равное этому числу, отметите два, будет (ОдноОтмеченное + ДругоеОтмеченное)/2.

Это разные задачи и будут разные ответы.
Что именно нужно Вам - Вам виднее!

Из этого можно что-то сделать дальше?

Можно. Что именно - не знаю, Вам опять же виднее!

[Roma30]

Начал делать по примеру indexx. С Float не проходит, ошибка.

[min@y™]

TCheckBox можно смело присвоить свойству Tag преобразованием типов туда и обратно.

Edit100500.Tag:= Integer(CheckBox100500);
//---------
if TCheckBox(Edit100500.Tag).Checked
  then begin...

[Serge_Bliznykov]

Сообщение от Roma30

Начал делать по примеру indexx. С Float не проходит, ошибка.

Ну и где код? Какая ошибка? Надеюсь, не секретная?