[Sereb]

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

[Konrad]

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

[ChinYan]

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

[lmikle]

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

[Konrad]

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

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

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

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

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

[Bargest]

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

Код:

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

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

Код:

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

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

Код:

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]

я ошибся:

Код:

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 - байт. Читаем отдельно.