RadioGroup, помогите разобраться

[hatulya]

помогите, пожалуйста с такой задачей: В RadioGroup имеется одна колонка со списком утверждений, пользователь выбирает те,которые верны. А в Edit надо вывести количество выбранных утверждений.
вот, так я пыталась:

 procedure TForm1.Button1Click (Sender: TObject);
    var
    sum:integer;
    begin
     sum:=0;
   case RadioGroup1.ItemIndex of
  0: sum:=Sum+;
  ...                             {а что прибавлять?}
  5: sum:=Sum+;
  end;
  Edit8.Text:= IntToStr(sum) ;
  end;

или ч/з массив:

procedure TForm1.Button1Click (Sender: TObject);
    var
    s:integer;
    i:integer;
    a:array[1..5] of integer;
   begin
   s:=0;
   i:=RadioGroup1.ItemIndex ;
   for i:=1 to 5 do
   s:=s+a[i];
  Edit8.Text:= IntToStr(s) ;
  end;

конечно,это не работает, не судите строго..Или лучше использовать RadioButton?

[mihali4]

Любезная Наталья!
Для вашей задачи удобнее будет использовать CheckListBox, ибо в нем предусмотрены пометки нескольких пунктов (в отличие от RadioGroup).
И останется вам лишь проверить каждый итемс на Checked (по индексу итемса)... Впрочем, достаточно "тыркнуть" мышкой по CheckListBox-у на форме и нажать заветную клавишу F1. Там все подробненько...
Я не слишком сложно изъясняюсь?

[hatulya]

Спасибо, действительно, с CheckListBox всё элементарно. Вот код, если кому понадобится:

procedure TForm1.Button1Click (Sender: TObject);
    var
    s:integer;
    i:integer;
 begin
   s:=0;
   for i:=0 to CheckListBox1.Items.Count - 1 do
 if CheckListBox1.Checked[i] then
   s:=s+1;
 Edit8.Text:= IntToStr(s) ;
  end;