Сделать рандомный вывод вопросов

@rhe1ny · Регистрация: 10.04.2017

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

В общем, в ini файле есть вопросы и варианты ответа записываются след образом:

[Quest3]
LabelQuest=Какое животное имеет второе название — кугуар? ?
Quest1=Пума
Quest2=Гепард
Quest3=Пантера
Quest4=Леопард
QuestTrue=Пума
[Quest1]
LabelQuest=Сколько лет было Пушкину когда он умер?
Quest1=36
Quest2=38
Quest3=42
Quest4=37
QuestTrue=37

Сначала сделал через RadioButtons, но мне не понравилось, я сделал просто Image и на них Label и как сделать, чтобы при нажатии на картинку или label переходил на следующий вопрос или выходил.И как сделать чтобы выводило рандомно

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm7.Image7Click(Sender: TObject);
var i:integer;
begin
IniQuest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest.ini');
IncVorposi:=1;
radiobutton1.checked:=true;
Label1.Caption:='';
Label1.Caption:=(IniQuest.ReadString('Quest' +IntToStr(IncVorposi),'LabelQuest','Вопрос не найден'));
QuestTrue:=IniQuest.ReadString('Quest' +IntToStr(IncVorposi), 'QuestTrue', 'Ответ не найден');
Label2.caption:=IniQuest.ReadString('Quest' +IntToStr(IncVorposi), 'Quest1', 'Вопрос не найден');
Label3.Caption:=IniQuest.ReadString('Quest' +IntToStr(IncVorposi), 'Quest2' , 'Вопрос не найден');
Label4.Caption:=IniQuest.ReadString('Quest' +IntToStr(IncVorposi), 'Quest3' ,'Вопрос не найден');
Label5.Caption:=IniQuest.ReadString('Quest' +IntToStr(IncVorposi), 'Quest4', 'Вопрос не найден');
end;

Это вывод вопроса и вариантов ответа

@rhe1ny · 26.06.2017, 20:14 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
var ololo: string;
begin
 ButtonCall.Enabled := false;
 ololo:=('- Алло!'+#13+'- Ололо, слющай, *задает вопрос*'+#13+'- Ящитаю, правильный ответ - '+QueryQuestion.FieldByName('TrueAsk').AsString+'!');
 ShowMessage(ololo);
Я изменил под себя 
var ololo: string;
begin
 ButtonCall.Enabled := false;
 ololo:=('- Алло!'+#13+'- Ололо, слушай, *задает вопрос*'+#13+'- Ящитаю, правильный ответ - '+RadioButtonQuestTrue('QuestTrue').ReadString);
 ShowMessage(ololo);

И он не работает
в чем пробелма

@krapotkin · 26.06.2017, 21:05

по кускам кода никаких подсказок сделать невозможно

а КАК по-вашему должен работать этот код???
лучшие телепаты бьются сейчас над
RadioButtonQuestTrue('QuestTrue').ReadSt ring

@rhe1ny · 26.06.2017, 22:18 **[ТС]**

Delphi
1
2
3
4
5
6
7
procedure TForm2.Image6Click(Sender: TObject);
var zvonok:string;
begin
Image4.Enabled := false;
Zvonok:=('- Алло!'+#13+'- Васян, слушай, *задает вопрос*'+#13+'- Я считаю, правильный ответ - прочитать из файла правильный ответ?)
ShowMessage(zvonok);
end;

@krapotkin · 26.06.2017, 22:25

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

@rhe1ny · 26.06.2017, 23:09 **[ТС]**

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

@rhe1ny · 27.06.2017, 01:12 **[ТС]**

Последний вопрос, если я ставлю как вы говорили IncVoprosi:=random(30); типо 30 колво
то у меня начинает активироваться рандомный вопрос на рандомную сумму.
А если оставить IncVoprosi:=1; То идет по порядку до самого миллиона

@Krutko · 27.06.2017, 07:46

Ну так сделайте отдельно переменную для вопроса и для суммы!

@rhe1ny · 27.06.2017, 08:08 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
ShowMessage('И это правильный ответ');
Inc(IncVorposi);
for I := 0 to 15 do // Всего радиобуттанов с суммой
begin
  if TRadioButton(FindComponent('RadioButton' +IntToStr(IncVorposi))).Tag= 0  then
  begin
    TRadioButton(FindComponent('RadioButton' +IntToStr(IncVorposi))).Checked:=True;
  end;

если так то все равно ошибка

@krapotkin · 27.06.2017, 09:35

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

Inc(IncVorposi);

это увеличение IncVorposi на 1. Зачем это тут?
зачем данные хранить на экране???
заведите уже переменные для всего, что вам нужно хранить в программе
что обозначает этот поиск радиокнопок? вообще не понимаю

@rhe1ny · 27.06.2017, 10:35 **[ТС]**

Можете написать? Всего 15 вопросов и радиокнопка заполнялась по порядку

Добавлено через 2 минуты
можете написвть пожалуйста, чтобы рандомных 15 вопросов и по порядку заполнялись радиобутоны

Добавлено через 1 минуту

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

это увеличение IncVorposi на 1. Зачем это тут?
зачем данные хранить на экране???
заведите уже переменные для всего, что вам нужно хранить в программе
что обозначает этот поиск радиокнопок? вообще не понимаю

Можете написать рандомных 15 вопросов и радиокнопки по порядку

@krapotkin · 27.06.2017, 12:07

потому что НОМЕР ВОПРОСА - ПРОИЗВОЛЬНЫЙ
а кнопки должны идти ПО ПОРЯДКУ

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

сделайте отдельно переменную для вопроса

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

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

скелет приложения

Delphi
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
TForm1=class(TForm);
..
  procedure FormCreate(Sender:TObject);
private
  FCurrentRound:integer;
  FCurrentQuestion:integer;
  RBArray:array[0..14] of TRadioButton;
  procedure SetCurrentRound(value:integer);
  procedure SetCurrentQuestion(value:integer);
public
  property CurrentQuestion : integer read FCurrentQuestion write SetCurrentQuestion;
  property CurrentRound: integer read FCurrentRound write SetCurrentRound;
end;
 
procedure TForm1.SetCurrentQuestion(value:integer);
begin
  FCurrentQuestion:=value;
  ShowQuestion();
end;
 
procedure TForm1.SetCurrentRound(value:integer);
begin
  FCurrentRound:=value;
  for i:=0 to high(RBArray) do
    RBArray[i].checked := i=FCurrentRound;
end;
 
procedure TForm1.FormCreate(Sender:TObject);
begin
  RBArray[0] := RadioButton1;
  RBArray[1] := RadioButton2;
....
  RBArray[14] := RadioButton15;
end;
 
procedure TForm1.ShowQuestion();
begin
  // заполнить интерфейс вопросом и ответами номера CurrentQuestion
....
end;

но блин я не хочу за вас писать все подряд
вашего кода нет. исправлять нечего...

в этом примере после каждого раунда достаточно делать

Delphi
1
2
CurrentQuestion := random(30); // вот это то что сейчас у вас IncVoprosi
CurrentRound := CurrentRound + 1; // это номер раунда

и оно САМО все перерисует

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

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	26.06.2017, 21:05
	по кускам кода никаких подсказок сделать невозможно а КАК по-вашему должен работать этот код??? лучшие телепаты бьются сейчас над RadioButtonQuestTrue('QuestTrue').ReadSt ring 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	26.06.2017, 22:25
	найдите у себя в коде место, где считывается правильный ответ на вопрос номер N в приведенном вами куске это место есть 0

@rhe1ny 0 / 0 / 0 Регистрация: 10.04.2017 Сообщений: 23
	26.06.2017, 23:09 [ТС]
	нашел, работает, огромное вам спасибо, можете помочь с подсказкой право на ошибку или 50/50 но это труднее. Я сегодня пытался ничего не вышло. Буду сильно благодарен 0

@rhe1ny 0 / 0 / 0 Регистрация: 10.04.2017 Сообщений: 23
	27.06.2017, 01:12 [ТС]
	Последний вопрос, если я ставлю как вы говорили IncVoprosi:=random(30); типо 30 колво то у меня начинает активироваться рандомный вопрос на рандомную сумму. А если оставить IncVoprosi:=1; То идет по порядку до самого миллиона Миниатюры 0

@Krutko 5 / 7 / 5 Регистрация: 13.11.2015 Сообщений: 267
	27.06.2017, 07:46
	Ну так сделайте отдельно переменную для вопроса и для суммы! 0