ЗагвоЗДка с Checkbox (от слова "гвоздь")

[sting]

Здравствуйте товарищи!
Затормозили меня Чекбоксы!
Мне надо было узнать сколько включены а сколько выключены!
Я просмотрел форум и нашёл:

 for I := 0 to Form1.ComponentCount-1 do begin
    if (Form1.components[i] is TCheckBox) and TCheckBox(Form1.components[i]).Checked 
    then 
      Inc(d);

теперь мне надо сделать что бы:
-если больше одного, то
-если один, то
-если не одного, то

Но чёт не как не получается(


И вторая проблема такая
Мне надо определить сколько чекбоксов нажато и какие именно!

Как это реализовать?

[Neeter]

Я так понимаю, там d равно количеству нажатых CheckBox'ов, ну тогда первая пробема:

 if d > 1 then
 if d = 1 then
 if d = 0 then

Писать надо после, приведенного вами, кода.
Вторая проблема.
d и равно количеству нажатых CheckBox'ов. Количество не нажатых равно: КолвоЧекбоксов - d

А какие именно нажаты, это тоже понятно, что вам надо делать с ними?

 for I := 0 to Form1.ComponentCount-1 do begin
  if (Form1.components[i] is TCheckBox) and TCheckBox(Form1.components[i]).Checked 
  then 
  begin
   Inc(d);
   //Что-то делать с нажатым CheckBox'ом
  end;

[sting]

Не знаю как обьяснить получше...

Что то наподобе теста! (компилятор тестов тоесть)
и всё записывается в файл, а тестовая программа уже с этого файла читает и тестирует))

Скрин вложен в пост!

5 мемо 4 чекбокса (один мемо на вопросе)
каждый включенный чекбокс означает, что ответ в мемо (напротив включенного чека) правильный и (выполняется мною задуманное действие)

вот так наверно попонятнее..

проблема в том что:

пример по скрину:

нажаты
2 и 4 чекбоксы -- значит текст введёный в мэмо3 и мэмо5 верный
и уже после этого в другое мэмо (допустим мэмо666) должна занестись запись " 35"

а программа клиент уже по алгоритму сама разберёт...
вот так0))

с первой проблемой разобрался
Осталась актуальна вторая проблема)

[Neeter]

Можете записывать в строку свойства tag чекбоксов(предварительно выставив в каждом по порядку, например у CheckBox1 св-во tag присвоить 1 и т.д.)
Потом уже проверять разные комбинации правильных значений.
Например так:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 d: byte;
 s: string;
begin
 for I := 0 to Form1.ComponentCount-1 do begin
  if (Form1.components[i] is TCheckBox) and TCheckBox(Form1.components[i]).Checked then
  begin
   Inc(d);
   if s <> '' then
    s := s + ', ' + IntToStr(TCheckBox(Form1.components[i]).Tag)
   else
    s := IntToStr(TCheckBox(Form1.components[i]).Tag);
  end;
 //Проверка на комбинации
 end;
 if s = '1, 2, 3, 4' then ShowMessage('Все правильно!');
 if s = '1, 2, 3' then ShowMessage('Почти все правильно!');
 if s = '1, 2, 4' then ShowMessage('Почти все правильно!');
 //И т.д.
end;

Вместо ShowMessage('Почти все правильно') можете писать свой код
Я понимаю конечно, что это не очень хороший код, но додуматься до чего-то большего пока не смог.

[sting]

Спасибо большое! Это намного лучше чем через AND и OR



За излишнее (неоправданное) цитирование предусмотрен штраф. Вы этим цитированием злоупотребляете. Это относится к флуду. Рекомендую перечитать (причем внимательно) правила раздела.

[mutabor]

Объявляешь массивы

checks: array of TCheckBox;
checked: array of integer;

Заполняешь

SetLength(checks, 4);
for i:=0 to 3 do begin
  checks[i]:=TCheckBox.Create(Form1);
  with checks[i] do begin
    Parent:=Form1;
    Left:=x; //x - отступ слева
    Top:=50 + i*y; //50- отступ от верха, y - отступ между чекбоксами
  end;
end;

Проверка состояния чекбоксов

SetLength(checked, 0);
for i:=0 to 3 do 
  if checks[i].Checked then begin
    SetLength(checked, Length(checked)+1);
    checked[Length(checked)-1]:=i;
  end;

После проверки длина массива Length(checked) это кол-во отмеченных, в самом массиве номера отмеченных чекбоксов.

Определить реакцию в зависимости от числа отмеченных

case Length(checked) of
  0: {выполняешь нужные действия};
  1: ;
  2..4: ;
end;

[sting]

фишка не канает!
пардон за прямату!

[mutabor]

Плохому танцору тоже что-то мешает, пардон за прямоту.