Скачать: CL | DM;

Обычный, текстовой фал... (*.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]

ФОРМУЛИРОВКА ВОПРОСА:
- Как можно на одном файле, в одном записи поместить следуюущий формат, загрузить и использовать как надо...

My.dat
------------------------
1. Vopros1 | Otvet1 | Otvet2 | Otvet3 | Otvet4 | Otvet3
2. Vopros2 | Otvet1 | Otvet2 | Otvet3 | Otvet4 | Otvet1
3. Vopros3 | Otvet1 | Otvet2 | Otvet3 | Otvet4 | Otvet4
... ... ... ... ... ... ... ... ... ... ... ... ... ...
N. VoprosN | Otvet1 | Otvet2 | Otvet3 | Otvet4 | Otvet2

---

← →
lipskiy ©   (2003-04-07 01:54) [3]

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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.987 c