Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

Обычный, текстовой фал... (*.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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
1-54700
Тимохов
2003-04-04 15:32
2003.04.17
Теоретический вопрос про директиву packed


1-54723
Вадим
2003-04-04 23:16
2003.04.17
TRichEdit


7-54922
mixamixa
2003-02-27 10:37
2003.04.17
Как отключить и потом включить клавиатуру


1-54582
sapsi
2003-04-07 08:36
2003.04.17
Преобразование color в string


1-54619
Alexxxxx
2003-04-07 22:46
2003.04.17
Парсинг *.rtf файла.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский