[Sereb]

В школе требуют создать тест в Delphi .
Одним из критериев таких тестов является то , что вопросы должны браться из текстового файла ( txt) и забиваться в массив , с которым мы и будем работать.
Я не понимаю как такое можно сделать , если можно напишите плиз код , как такое можно реализировать.
Буду очень благодарен.

[Konrad]

В какой класс ходишь то?)

[ChinYan]

В школах учат делфи? Я учил старый добрый паскаль

[lmikle]

Берем поиск и ищем по форуму. Примеры таких программ были во множестве.

[Konrad]

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

В школах учат делфи? Я учил старый добрый паскаль

И я о том же.
Нужно выучить азы, а потом уже сложние программы делать.

А говорить - я учусь в первом классе, помогите сделать ракетный двигатель.......... смешно.

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

[Bargest]

То, что учитель поспешил, не освобождает от необходимости выполнить задания
Можно сделать массив записей вида

Код:

1 2 3 4 5

type TTest=record  Question: String;  Answers: array[0..3] of String;  RightAns: byte; end;

в текстовом файле вопросы пишутся так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

Как тебя зовут? Миша Петя Саша Ваня 3 Где ты живешь? Севастополь Челябинск Мурманск Владивосток 1 ...

потом делаешь так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var a:array[0..100] of TTest;      i,j:integer;      f:text; ... i:=0; assignfile(f,'123.txt'); reset(f); while not eof(f) do begin  readln(f,a[i].Question);  for j:=0 to 3 do   readln(f,a[i].Answers);  readln(f,a[i].RightAns); end; closefile(f);

получил требуемый массив.
НО вариантов всегда 4, правильный ответ один, каждый вопрос и ответ занимает строго одну строку.

[Sereb]

readln(f,a[i].Question);
for j:=0 to 3 do
readln(f,a[i].Answers);
readln(f,a[i].RightAns);

Эти строчки можно пояснить ?

З.Ы.: в 11 классе , но до этого по Делфи не учился

[Bargest]

я ошибся:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var a:array[0..100] of TTest;      i,j:integer;      f:text; ... i:=0; assignfile(f,'123.txt'); reset(f); while not eof(f) do begin  readln(f,a[i].Question);  for j:=0 to 3 do   readln(f,a[i].Answers[j]);  readln(f,a[i].RightAns); end; closefile(f);

readln(X); - считать сроку в переменную X
readln(f,...); - считать строку из файла
readln(f,X); по аналогии считать из файла в переменную X.
a[i].Question - строка. Читаем в нее.
a[i].Answers - массив строк. Читаем в цикле.
a[i].RightAns - байт. Читаем отдельно.