![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Я изучаю Delphi совсем недавно, но появилась необходимость сделать простеньккий тест по истории. Нужно что бы вопросы к тесту брались рандомом (случайно) из файла. Нигде не смог найти как это реализовать. Буду очень благодарен за подсказку.
|
#2
|
|||
|
|||
![]() Ну первое что приходит на ум - это воспользоваться классом TStrings.
Для начала загрузить текст вопросов из файла методом LoadFormFile, затем воспользоваться функцией Random для случайного выбора строки по индексу... var s: TStrings; index: integer; begin s:= TStrings.Create; s.LoadFromFile('tests.txt'); Randomize; index:=Random(s.Count); Label1.Caption:=s.Strings[index]; //Вывод случайной строки в заголовок label1 ... s.Free; // Не забываем освобождать память ![]() end Пожалуй единственный минус такого подхода заключается в том, что вопросы в тестах будут повторяться... Хотя конечно можно этого избежать, но это уже совсем другая история ![]() Последний раз редактировалось Helicotrema, 04.10.2007 в 10:45. |
#3
|
|||
|
|||
![]() повторы можно избежать удаляя
![]() ![]() |