Не работает выборка из Tradiogroup

[Алексей_2012]

Ну нравится мне эта функция, что поделать-товот уж несколько дней пытаюсь ваш алгоритм перелопатить, получилось только если число вариантов ответа одинаково

[Алексей_2012]

procedure TForm2.Button2Click(Sender: TObject);
begin
  if num=1 then exit;
while Copy(q[strpos],1,1)<>'!' do Dec(strpos);
while Copy(q[strpos],1,1)<>'!' do Dec(strpos);
Dec(num);
loadquestion;
end;

Ну или вот, перед каждым вопросом в файле поставил разграничитель (!) первый цикл возвратит в позицию текущего вопроса, а второй в позицию предыдущего, затем уменьшается порядковый номер вопроса и выполняется процедура заполнения нового вопроса с вариантами ответа, почему-то работает не так

[BDA]

while Copy(q[strpos],1,1)<>'!' do Dec(strpos);
Dec(strpos);
while Copy(q[strpos],1,1)<>'!' do Dec(strpos);

Но лучше изменить всю реализацию. Возможно, завтра, если будет время, выложу другое видение архитектуры.

[Алексей_2012]

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

[Алексей_2012]

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

[BDA]

Вроде без багов

[Алексей_2012]

BDA, спасибо Вам огромное, теперь все стало еще более запутаннее, разбираюсь в Вашем алгоритме, но все же есть вопрос, а почему код с циклом с предусловием не сработал?

[BDA]

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