Тест. Проблема с CheckListBox

[Trikster]

БД в Access, связь с БД через ADO.
В БД хранятся вопросы к тесту и ответы на них. Существует три типа вопросов(1 правильный (RadioGroup), несколько правильных (CheckListBox), ответ -строка (Edit)). Ответы в БД типа string.
Подскажите как обработать случай когда несколько правильных ответов, т.е как проверить отмеченные в CheckListBox'е строчки с номерами правильных ответов.
ПРИМЕР: Правильный ответ: 1 3 4 (БД), значит в CheckListBox должны быть отмечены 0,2,3 строчки.
Как это сделать???

Моя функция проверки правильности ответа:

function true_answer(q_type:integer; q_answer:string):boolean;
var iIndex:Integer;
begin
with Main do
begin
Button3.Enabled:=true;
Case q_type of
    1: begin
         If RadioGroup1.ItemIndex=-1
          then ShowMessage('Вы не ответили на вопрос')
          else if RadioGroup1.ItemIndex=strtoint(q_answer)-1
            then true_answer:=true;
       end;
    2: begin
       if CheckListBox1.ItemIndex=-1
          then ShowMessage('Вы не ответили на вопрос')
          else if CheckListBox1.ItemIndex=strtoint(q_answer)-1
                then  true_answer:=true;
       end;
    3: begin
         if Edit1.Text =''
          then ShowMessage('Вы не ответили на вопрос')
          else if Edit1.Text=q_answer then true_answer:=true;
       end;
    end;
end;

end;

[Прик]

Без дополнительного параметра, через который передаются правильные ответы, скорее всего, не обойтись.

function true_answer(q_type:integer; q_answer:string; A: array of integer):boolean;
var I:Integer;
begin
with Main do
begin
Button3.Enabled:=true;
Case q_type of
  ...
    2: begin
         Result := True;
         for I := 0 to High(A) do
           if not CheckListBox1.Checked[A[I]-1] then begin
             Result := False;
             break;
           end;
         end;
  ...
end;

[Trikster]

А можете еще на словах описать?) я не уверен что до конца понял алгоритм(

[Прик]

"А" - параметр, динамический массив, в котором содержаться номера правильных ответов. К примеру, ([2, 4, 5]).
Не ясно в каком виде правильные ответы хранятся в БД, поэтому конкретно как массив "зарядить" пояснить не получится.
В цикле проверяется соответствие отмеченных элементов чеклистбокса значениям в массиве. Если хотя бы один из этих элементов не отмечен, то функция возвращает False.

[Trikster]

Не отмечен хотя бы один элемент индекс которого равен (значению в массиве-1), верно? а строка в бд так и хранится: 1 2 или 2 3 4 ну и т.п. или вы имели ввиду неупорядоченное хранение типа 2 1 4 или 3 2 4 к примеру?

[Прик]

Нет, неупорядоченность здесь не имеет значения.
Не было понятно, что правильные ответы в строковом представлении.

Если бы ответы хранились в БД в виде: "1,3", т.е. номера через запятую, то было бы проще соорудить массив.

[Trikster]

Т.е через функции работы со строками типа pos()? тогда не вижу разницы проверять на пробел или на запятую.

[Прик]

Ну, здесь вам и карты в руки. Какие средства, такие и возможности.

Разница небольшая есть в том, что строку, где потенциальные элементы расположены через запятую можно одним махом превратить в список (TStringList).
Хотя, конечно, потом все равно придется с использованием цикла "заряжать" массив целочисленными значениями из списка.

Понятно, что без цикла ни в случае с Pos, ни в случае TStringList не обойтись.
В общем то, здесь все равно как.

[Trikster]

ясно, спасибо большое) буду пробовать

[Trikster]

Сделал пока так:

function true_answer(q_type:integer; q_answer:string):boolean;
var i:Integer;
    mas: array of integer;
....
2: begin
        for i:=0 to length(q_answer)-1 do
          begin setlength(mas,i+1);
             mas[i]:=strtoint(q_answer[i+1]);
          end;
        for i := 0 to High(mas) do
          if not CheckListBox1.Checked[mas[i]-1]
           then break
           else true_answer:=true;

  end;
....

в БД данные слитно, типа 234, чтоб не заморачиваться с разделительными знаками