Текущий архив: 2003.04.17;
Скачать: 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 вся ветка
Текущий архив: 2003.04.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
