Главная страница
    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.44 MB
Время: 0.008 c
3-54407
Saska
2003-04-01 13:13
2003.04.17
Cнова TADOQuery


3-54472
Sergei
2003-03-29 12:59
2003.04.17
SQL Создание запроса Подскажите Пожалуйста


1-54570
Demon_mhm
2003-04-07 03:35
2003.04.17
Как поместить Caption из TListView в MessageBox?


7-54926
Пубертанец
2003-02-27 13:57
2003.04.17
Как получить список каталогов на диске?


3-54397
Roman_kv
2003-03-28 14:50
2003.04.17
Operation not apicatible из за чего это может быть?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский