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

[Алексей_2012]

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

[BDA]

Взял из одной из старых тем и немного "допилил".
Пример теста. Используется шифрование Виженера. В папке Шифровальщик программа, которая шифрует заданный файл ключом. Сам тест использует файл test1.encrypted в качестве списка вопросов и ответов. Структура списка вопросов:

Количество вопросов в файле
1 вопрос
количество ответов
номер правильного ответа
варианты ответа (каждый на своей строке)
2 вопрос
...

Хотя бы 1 вопрос должен быть в файле.

[Алексей_2012]

Спасибо большое! Сейчас пытаюсь разобраться в вашем алгоритме, и если не секрет, как вы сделали такие кнопки, чтоб они подсвечивались? у меня windows7, но кнопки в моих программах не подсвечиваются(

[BDA]

Пожалуйста.
У меня Delphi 2010 (и Windows 7), там так по умолчанию (правда, 1 раз случайно слетело, и тогда помогло: Project - Options - Application - Поставить галку Enable Runtime themes).

UPD
http://www.gunsmoker.ru/2011/02/dll-...de.html#delphi

ПС У меня одновременно установлены Delphi10Lite, Delphi 2010, Delphi XE3, Lazarus

[Алексей_2012]

У меня раньше был delphi10 lite, ооочень долго писал всякие фишки к электронному кроссворду, но вдруг понадобилось снести систему, и все проекты больше не открылись, а ваш способ не помог, но все равно спасибо) Кстати, если надо красивые кнопки или эдиты в 2007 делфи, то пропишите в разделе uses XPMan; и все)

[alextrof94]

Кнопки подсвечиваются? У меня все по стандарту. Может вы просто никогда не использовали XPManifest (на дельфях от Borland), который у Embracadero, похоже, по умолчанию стоит?

[Алексей_2012]

никогда не использовал)

кстати, BDA, вы говорили что тут все затирается, а нет, почему?
Сначала затирается, потом заполняется и сверяется.

 

var n:byte=0;

procedure Tform1.vibor(kil:byte);
var no:string;
begin
if kil=StrToInt(trim(Copy(s1,k,1))) then no:='' else no:='не';
memo1.lines.add(inttostr(k)+'-'+no+'правильно;     ваш ответ:'+inttostr(kil)+';');
end;


RadioGroup1.Items.Clear;
 repeat
 begin
 RadioGroup1.Items.Add(ts.Strings[i]);
 Inc(i);
 end;
 until Trim(Copy(ts.Strings[i],1,1))='-';

 case RadioGroup1.ItemIndex of
  0: kil:=1;
  1: kil:=2;
  2: kil:=3;
  3: kil:=4;
  4: kil:=5;
  end;
  vibor(kil);
inc(n);

n- кол-во правильно отвеченных вопросов

[BDA]

Последний вопрос не понял, поэтому объясню, не опираясь на него.
Перед тестируемым находится вопрос. Он выбрал вариант ответа и нажал "Далее". В коде кнопки происходит следующее: очистка радиогруппы (что вызывает сброс выбранного варианта), заполнение радиогруппы новым вопросом, попытка определить выбранный вариант. Естественно, что программа будет считать, что тестируемый отвечает неправильно. Кстати, с таким case (в последнем посте) kil будет сохранять предыдущий ответ, если не выбран ни один ответ, а точнее, будет хранить свое инициализируещее значение, так как ни один ответ тестируемого не будет правильно определен.

Правильная последовательность:
Определение выбранного ответа
Если ответ не выбран, то игнорирование нажатия
В зависимости от наличия дальнейших вопросов - загрузка следующего, либо вывод результатов

[Алексей_2012]

А как в вашем тесте сделать кнопку (Назад)? Вот код, у меня не получилось

procedure TForm2.Button2Click(Sender: TObject);
var i, k: integer;
  si: string;
label m1;
begin
  if num = 1 then exit;
  for k := 1 to 2 do
  begin
    for i := strpos downto 1 do
    begin
      si := Copy(trim(q[strpos]), 1, 1);
      if (si = '1') or (si = '2') or (si = '3') or (si = '4') or (si = '5') then goto m1;
      Dec(strpos);
    end;
    m1:
    strpos := i - 2;
  end;
dec(num);
loadquestion;
end;

[BDA]

Во-первых, кнопку назад у меня быстро никак не добавишь - нужно менять структуру задания теста для эффективной работы.
Во-вторых, мне непонятна Ваша любовь к функции trim. Чем меньше вызовов функций, тем лучше (особенно, если она ничего полезного не делает).