Рандомное считывание в Delphi из текстового файла

@lisaarr · Регистрация: 07.06.2022

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

здравствуйте!

имеется некоторый тест.

на форме расположен RadioButton, который считывает вопросы и соответствующие ответы из текстового файла.
структура заполнения данного файла такова:
- текст вопроса обозначен *
- варианты ответов -
- верный вариант ответа обозначается согласно порядковому номеру ответа

необходимо вывести в компонент вопросы в случайном порядке, соблюдая соответствующие варианты ответов

@D1973 · 07.06.2022, 08:12

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

на форме расположен RadioButton, который считывает вопросы и соответствующие ответы из текстового файла

Вы точно Delphi используете? В Дельфи-то этот компонент является всего лишь зависимым выключателем и нифига не умеет считывать...

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

структура заполнения данного файла такова

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

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

необходимо вывести в компонент вопросы в случайном порядке

В какой компонент? Их, знаете ли, до фига в Дельфи... И во многие можно вопросы вывести. Но вот... А ответы-то куда девать?

@lisaarr · 07.06.2022, 09:24 **[ТС]**

полагаю, что правильнее будет сказать, что RadioButton лишь отображает ту информацию, которую считывает кнопка Button.
На данный момент код выглядит следующим образом:

Delphi

procedure TForm4.btn2Click(Sender: TObject);
 
begin
inc(kolvo);
 if (rg1.ItemIndex>-1) and (not Eof(f)) then begin
  if rg1.ItemIndex = Nvern-1 then inc(ball); //Если выбранный вариант соответствует
    rg1.Items.Clear; //номеру верного ответа то балл прибавляется
    Repeat //и очищается поле для следующего вопроса
    if (s[1]='-') then begin
      delete(s,1,1);
      rg1.Caption:=s;
    end
    else if s[1]='*' then begin
      delete(s,1,1);
      Nvern:=StrToInt(s);
    end
    else rg1.Items.Add(s);
      readln(f,s);
      until (s[1]='-') or (Eof(f));
 end
//Если конец файла достигнут, значит вопросы закончились
 else if Eof(f) then begin
  delete(s,1,1);
  Nvern:=StrToInt(s);
 if rg1.ItemIndex = Nvern-1 then inc(ball);
 CloseFile(f);
 btn2.Enabled:=False; //кнопка становится недоступной в завершении проекта
 form4.Close;
end;
end.

Добавлено через 2 минуты
а сама структура вопроса:

-Вопрос 1
вариант ответа
вариант ответа
вариант ответа
вариант ответа
*4

@D1973 · 07.06.2022, 09:43

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

правильнее будет сказать, что RadioButton лишь отображает ту информацию

Правильнее будет понять, что компонентов RadioButton у Вас нет. Ну, то есть, совсем нет... Как же Вы код писали, что такого факта не заметили?

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

которую считывает кнопка Button

Собственно, кнопка, вот беда-то, тоже ничего не считывает. Она всего лишь откликается на событие нажатия на нее и выполняет определенные действия, если реакция на это нажатие была определена программистом.

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

а сама структура вопроса:

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

@mr-Crocodile · 07.06.2022, 10:38

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

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

у него rg1 явно имеет тип TRadionGroup

а RadioButton, RadionGroup - какая студенту разница то?!

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

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

необходимо вывести в компонент вопросы в случайном порядке, соблюдая соответствующие варианты ответов

Вопросы в случайном порядке или варианты ответов в случайном порядке?

исходный проект давай целиком, помогу.

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

@D1973 · 07.06.2022, 10:42

Не по теме:

Сообщение от mr-Crocodile

а RadioButton, RadionGroup - какая студенту разница то?!

Ага, радио и радио, чего привязались-то

@mr-Crocodile · 07.06.2022, 10:45

Не по теме:

Сообщение от mr-Crocodile

TRadionGroup

оговорочка по фрейду..
конечно же TRadioGroup, буквы n там нет....

@Пытливый · 07.06.2022, 16:02

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

@mr-Crocodile · 07.06.2022, 16:27

Сообщение от Пытливый

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

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

@Пытливый · 07.06.2022, 18:13

Сообщение от mr-Crocodile

Можно ссылочку хотя бы на парочку тем, где такая же структура?

Можно. Вот и вот и еще много раз я это видел в разных разделах паскаля.

@mr-Crocodile · 07.06.2022, 18:16

по первой ссылочке есть архив с проектом. lisaarr, можно брать.

@northener · 08.06.2022, 01:48

Сообщение от mr-Crocodile

Так если раз в две такая тема поднимается, да ещё и файл с вопросам такого же формата

Так это одна из любимых преподами учебных задач "Тест на Дельфи". Возможно даже самая любимая.

@mr-Crocodile 3050 / 1668 / 657 Регистрация: 19.03.2019 Сообщений: 5,368
	07.06.2022, 18:16	11
	по первой ссылочке есть архив с проектом. lisaarr, можно брать. 0

@lisaarr 0 / 0 / 0 Регистрация: 07.06.2022 Сообщений: 2
		1
	Рандомное считывание в Delphi из текстового файла 07.06.2022, 07:45. Показов 702. Ответов 11 Метки delphi 7, рандомно, срочно нужна помощь, текстовый файл (Все метки) здравствуйте! имеется некоторый тест. на форме расположен RadioButton, который считывает вопросы и соответствующие ответы из текстового файла. структура заполнения данного файла такова: - текст вопроса обозначен * - варианты ответов - - верный вариант ответа обозначается согласно порядковому номеру ответа необходимо вывести в компонент вопросы в случайном порядке, соблюдая соответствующие варианты ответов 0

@D1973 Модератор 9456 / 6209 / 2419 Регистрация: 21.01.2014 Сообщений: 26,465 Записей в блоге: 3
	07.06.2022, 08:12	2
	Сообщение от lisaarr на форме расположен RadioButton, который считывает вопросы и соответствующие ответы из текстового файла Вы точно Delphi используете? В Дельфи-то этот компонент является всего лишь зависимым выключателем и нифига не умеет считывать... Сообщение от lisaarr структура заполнения данного файла такова Ну со структурой ясно - чушь полная. Давайте сам файл, может, люди переделают, как должно. Сообщение от lisaarr необходимо вывести в компонент вопросы в случайном порядке В какой компонент? Их, знаете ли, до фига в Дельфи... И во многие можно вопросы вывести. Но вот... А ответы-то куда девать? 0

@D1973 Модератор 9456 / 6209 / 2419 Регистрация: 21.01.2014 Сообщений: 26,465 Записей в блоге: 3
	07.06.2022, 09:43	4
	Сообщение от lisaarr правильнее будет сказать, что RadioButton лишь отображает ту информацию Правильнее будет понять, что компонентов RadioButton у Вас нет. Ну, то есть, совсем нет... Как же Вы код писали, что такого факта не заметили? Сообщение от lisaarr которую считывает кнопка Button Собственно, кнопка, вот беда-то, тоже ничего не считывает. Она всего лишь откликается на событие нажатия на нее и выполняет определенные действия, если реакция на это нажатие была определена программистом. Сообщение от lisaarr а сама структура вопроса: структура была понятна из прошлого топика. Я файл просил, чтобы его переделать нормально и тогда уже двигаться дальше. Ну, нет, так нет, дело хозяйское. 0

@mr-Crocodile 3050 / 1668 / 657 Регистрация: 19.03.2019 Сообщений: 5,368
	07.06.2022, 10:38	5
	Сообщение от D1973 равильнее будет понять, что компонентов RadioButton у Вас нет. у него rg1 явно имеет тип TRadionGroup а RadioButton, RadionGroup - какая студенту разница то?! Добавлено через 1 минуту Сообщение от lisaarr необходимо вывести в компонент вопросы в случайном порядке, соблюдая соответствующие варианты ответов Вопросы в случайном порядке или варианты ответов в случайном порядке? исходный проект давай целиком, помогу. Добавлено через 2 минуты да, если вдруг сам соберёшься делать. Тебе не рандомное чтение из файла нужно делать. Тебе нужно подготовить структуру в памяти (динамический массив записей подойдёт), прочитать все вопросы в память, перемешать вопросы случайным образом, а потом выдавать их по одному в том порядке, в каком они получились после перемешивания. 0

@D1973 Модератор 9456 / 6209 / 2419 Регистрация: 21.01.2014 Сообщений: 26,465 Записей в блоге: 3
	07.06.2022, 10:42	6
	Не по теме: Сообщение от mr-Crocodile а RadioButton, RadionGroup - какая студенту разница то?! Ага, радио и радио, чего привязались-то 0

@mr-Crocodile
	07.06.2022, 10:45 #7
	Не по теме: Сообщение от mr-Crocodile TRadionGroup оговорочка по фрейду.. конечно же TRadioGroup, буквы n там нет.... 0

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	07.06.2022, 16:02	8
	Тема с похожим содержанием поднимается примерно раз в две недели, причем даже структура этого дебильного текстового файла с вопросами не меняется. 0

@mr-Crocodile 3050 / 1668 / 657 Регистрация: 19.03.2019 Сообщений: 5,368
	07.06.2022, 16:27	9
	Сообщение от Пытливый Тема с похожим содержанием поднимается примерно раз в две недели, причем даже структура этого дебильного текстового файла с вопросами не меняется. стоп-стоп. Так если раз в две такая тема поднимается, да ещё и файл с вопросам такого же формата, то почему не взять код из этих тем? Можно ссылочку хотя бы на парочку тем, где такая же структура? 0

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	07.06.2022, 18:13	10
	Сообщение от mr-Crocodile Можно ссылочку хотя бы на парочку тем, где такая же структура? Можно. Вот и вот и еще много раз я это видел в разных разделах паскаля. 1

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,448
	08.06.2022, 01:48	12
	Сообщение от mr-Crocodile Так если раз в две такая тема поднимается, да ещё и файл с вопросам такого же формата Так это одна из любимых преподами учебных задач "Тест на Дельфи". Возможно даже самая любимая. 1