Обычный тест

@v1nt · Регистрация: 07.01.2010

Студворк — интернет-сервис помощи студентам

вообщем, учусь делать тесты на c++ Builder, создал файл txt, с файла в Memo и в RadioButton грузятся вопросы и варианты ответов, сделал проверку таким образом:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
TStringList *s = new TStringList;
TRadioButton *Selected;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
s->LoadFromFile("vopros.txt") ; [COLOR="DarkOliveGreen"]// загрузить с файла[/COLOR]
Memo1->Lines->Text = s->Strings[0]; [COLOR="DarkOliveGreen"]// вопрос[/COLOR]
Form3->RadioButton1->Caption = s->Strings[1]; [COLOR="DarkOliveGreen"]//варианты ответов[/COLOR]
Form3->RadioButton2->Caption = s->Strings[2];
Form3->RadioButton3->Caption = s->Strings[3];
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(Selected->Caption == s->Strings[1]) ShowMessage("правильный ответ"); [COLOR="DarkOliveGreen"]// проверка на правильность ответа[/COLOR]
}
//---------------------------------------------------------------------------
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
      Selected = (TRadioButton*)Sender;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton2Click(TObject *Sender)
{
          Selected = (TRadioButton*)Sender;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton3Click(TObject *Sender)
{
Selected = (TRadioButton*)Sender;
}

Этот вариант оч неудобный, т.к адресовывание к правильному ответу происходит не по индексу а по тексту.. Прошу помочь мне сделать так, что бы адресовывание происходило по индексу, по номеру строки.

@koldun · 19.03.2010, 17:47

ну если по индексу то наверно надо использовать радиогруппу...

вот тока не знаю, можно ли там выбирать больше одного ответа...

@v1nt · 19.03.2010, 18:04 **[ТС]**

мне больше одного и не нада

@koldun · 19.03.2010, 18:08

C++
1
RadioGroup2->ItemIndex

@v1nt · 19.03.2010, 18:11 **[ТС]**

А по подробнее можно?

@MrAndrey_ka · 19.03.2010, 18:16

для RadioButton-ов в поле таг вбей 1,2 и 3;

и для всех поставь такой обработчик

C++
1
2
3
4
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
Tag = ((TRadioButton*)Sender)->Tag;
}

и тогда проверка будет выглядеть так:

C++
1
2
3
4
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(Tag==2) ShowMessage("правильный ответ"); // проверка на правильность ответа
}

или вообще убери обработчики для RadioButton-ов и проверка будет такая:

C++
1
2
3
4
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(((TRadioButton*)Sender)->Tag==2) ShowMessage("правильный ответ"); // проверка на правильность ответа
}

@v1nt · 19.03.2010, 18:40 **[ТС]**

По сути, это тоже самое что и у меня?
Т.е в тесте всегда будет только один вопрос и один ответ, а мне нужно что бы в тесте было хотя бы 5 вопросов..( Мне надо как-то задать переменную n, n-номер строки в txt файле, n0 вопрос n1 n2 n3 варианты ответов, n4 правильный, и при нажатии на кнопку след. вопрос n0+5 n1+5 и т.д. Я вот не знаю как это сделать(

@MrAndrey_ka · 19.03.2010, 19:17

для начала опиши толком что ты хочешь!!!!

тесты должны по одному выдаваться или все сразу?

в файле описание такое?

Цвет елки?
синий
зеленый
красный
2
Кто рыба?
кот
пес
сом
3

@v1nt · 19.03.2010, 19:37 **[ТС]**

Да тесты по 1 должны( в файле да примерно такое

@MrAndrey_ka · 19.03.2010, 19:52

вариантов всегда 3?

@v1nt · 19.03.2010, 19:58 **[ТС]**

Да всегда 3

@MrAndrey_ka · 19.03.2010, 19:58

int N; - глобальная

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm3::Button2Click(TObject *Sender)
{int n=StrToInt(s->Strings[N*5+4]);
if(Tag==n) ShowMessage("Правильно");
 
N++;
if(Tag*5>s->Count)ShowMessage("Это был последний вопрос!");
Memo1->Lines->Text = s->Strings[N*5]; // вопрос
Form3->RadioButton1->Caption = s->Strings[N*5+1]; //варианты ответов
Form3->RadioButton2->Caption = s->Strings[N*5+2];
Form3->RadioButton3->Caption = s->Strings[N*5+3];
}

для RadioButton-ов в поле таг вбей 1,2 и 3;

и для всех поставь такой обработчик

C++
1
2
3
4
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
Tag = ((TRadioButton*)Sender)->Tag;
}

гдето так!

@v1nt · 19.03.2010, 21:36 **[ТС]**

Сообщение от MrAndrey_ka

вариантов всегда 3?

Да, вариантов всегда 3.

Добавлено через 23 минуты
"зеленый" is not a valid integer value
загружаю вопросы ответы, нажимаю баттон2 выскакивает вот это

Добавлено через 3 минуты
исправил, ошибка по глупости, но все равно выводит ошибку только теперь List index bound

Добавлено через 17 минут
А нет все разобрался, спасибо)

Добавлено через 47 минут
if(Tag*5>s->Count)ShowMessage("Это был последний вопрос!");
вообщем в этой строчке ошибка, т.е последний вопрос он не определяет

@MrAndrey_ka · 20.03.2010, 01:27

замени на
if(N*5>s->Count)ShowMessage("Это был последний вопрос!");

@v1nt · 20.03.2010, 20:58 **[ТС]**

if(N*5>s->Count)ShowMessage("Это был последний вопрос!"); та же ошибка List Index of bounds
я делал просто if(N*5)ShowMessage("Это был последний вопрос!");вроде работает но тоже с ошибкой, т.е ошибка выскакивает ок жму и дальше можно работать.

@MrAndrey_ka · 21.03.2010, 01:05

ой сори сделай так
if(N*5>=s->Count)ShowMessage("Это был последний вопрос!");

@v1nt · 21.03.2010, 01:32 **[ТС]**

все равно ошибка, указывает на это
if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);

@MrAndrey_ka · 22.03.2010, 00:39

все равно ошибка, указывает на это
if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);

а где такое написано?

@v1nt · 22.03.2010, 12:46 **[ТС]**

как где? когда происходит ошибка я жму break он открывает classes code. там и написанно

Добавлено через 10 минут
вообщем вот что у меня на данный момент, может быть я что-то не так сделал?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
 
TStringList *s = new TStringList;
TRadioButton *Selected;
Char *i;
int N;
 
 
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)  // кнопка начать тест
{
 
s->LoadFromFile("vopros.txt") ;
 
Memo1->Lines->Text = s->Strings[0]; // вопрос
Form3->RadioButton1->Caption = s->Strings[1]; //варианты ответов
Form3->RadioButton2->Caption = s->Strings[2];
Form3->RadioButton3->Caption = s->Strings[3];
 
 
 
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)    // кнопка дальше
{
int n=StrToInt(s->Strings[N*5+4]);
if(Tag==n) ShowMessage("Правильно");
N++;
if(N*5>=s->Count)ShowMessage("Это был последний вопрос!");
Memo1->Lines->Text = s->Strings[N*5]; // вопрос
Form3->RadioButton1->Caption = s->Strings[N*5+1]; //варианты ответов
Form3->RadioButton2->Caption = s->Strings[N*5+2];
Form3->RadioButton3->Caption = s->Strings[N*5+3];
 
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
 
  Tag = ((TRadioButton*)Sender)->Tag;
  Tag = 1;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton2Click(TObject *Sender)
{
      Tag = ((TRadioButton*)Sender)->Tag;
      Tag = 2;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton3Click(TObject *Sender)
{
    Tag = ((TRadioButton*)Sender)->Tag;
    Tag = 3;
}

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@koldun 145 / 100 / 6 Регистрация: 11.03.2010 Сообщений: 477
	19.03.2010, 17:47
	ну если по индексу то наверно надо использовать радиогруппу... вот тока не знаю, можно ли там выбирать больше одного ответа... 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 18:04 [ТС]
	мне больше одного и не нада 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 18:11 [ТС]
	А по подробнее можно? 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 18:40 [ТС]
	По сути, это тоже самое что и у меня? Т.е в тесте всегда будет только один вопрос и один ответ, а мне нужно что бы в тесте было хотя бы 5 вопросов..( Мне надо как-то задать переменную n, n-номер строки в txt файле, n0 вопрос n1 n2 n3 варианты ответов, n4 правильный, и при нажатии на кнопку след. вопрос n0+5 n1+5 и т.д. Я вот не знаю как это сделать( 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	19.03.2010, 19:17
	для начала опиши толком что ты хочешь!!!! тесты должны по одному выдаваться или все сразу? в файле описание такое? Цвет елки? синий зеленый красный 2 Кто рыба? кот пес сом 3 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 19:37 [ТС]
	Да тесты по 1 должны( в файле да примерно такое 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	19.03.2010, 19:52
	вариантов всегда 3? 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 19:58 [ТС]
	Да всегда 3 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	20.03.2010, 01:27
	замени на if(N*5>s->Count)ShowMessage("Это был последний вопрос!"); 1

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	20.03.2010, 20:58 [ТС]
	if(N5>s->Count)ShowMessage("Это был последний вопрос!"); та же ошибка List Index of bounds я делал просто if(N5)ShowMessage("Это был последний вопрос!");вроде работает но тоже с ошибкой, т.е ошибка выскакивает ок жму и дальше можно работать. 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	21.03.2010, 01:05
	ой сори сделай так if(N*5>=s->Count)ShowMessage("Это был последний вопрос!"); 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	21.03.2010, 01:32 [ТС]
	все равно ошибка, указывает на это if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index); 0