Обычный, текстовой фал... (*.txt)

← →
spogi (2003-04-07 01:08) [0]

Привет всем!
Значит вот что мне нужно..
Пишу прогу тест, есть вопрос и несколько ответов, один правильный. Все это без проблем, и рандом выбираю вопрос, и ответ правильный можно отлавить среди не правильных...
Только вот проблема с сохранением файле вопросы и ответы.
Что я сделал:
- у меня 1 вопрос, 4 ответа, 1 правильный. Взял и создал 6 файлов, у первой вопросы, после идут ответы каждый по отдельном, а в конце еще один для правильного...
ХОЧУ:
- все они были на одном файле, ПОДСКАЖЕТЕ?

← →
lipskiy © (2003-04-07 01:10) [1]

append
closefile

← →
spogi (2003-04-07 01:38) [2]

type
TMyRec = record
V,O1,O2,O3,O4:shortstring;
Num:integer;
end;

var
frec : file of TMyRec;
Rec:TMyRec;

Rec.v:= "...";
...
Rewrite(frec);
write(frec,Rec);

...
Reset(frec);
Read(frec,Rec);

Обычный, текстовой фал... (*.txt) Найти похожие ветки