Рандомное считывание в 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 3048 / 1668 / 656 Регистрация: 19.03.2019 Сообщений: 5,373
	07.06.2022, 18:16	11
	по первой ссылочке есть архив с проектом. lisaarr, можно брать. 0

Новые блоги и статьи
Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .	Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .

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

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

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

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

@D1973 Модератор 9646 / 6253 / 2426 Регистрация: 21.01.2014 Сообщений: 26,674 Записей в блоге: 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

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

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

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

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