Редактор вопросов

[fairplau]

Суть сей задачи такова, создать редактор вопросов с сохранением в типизированный файл, то есть хранить сами вопросы, варианты ответа и правильный ответ в типизированном файле, с меня пиво ребята, срочно нужна помощь

[Вадим Мошев]

Пиво не пью.
Ссылка на сообщение с контактами и условиями работы у меня в подписи. Давайте поговорим.

[min@y™]

раздели задачу на подзадачи, так проще. скажи, какую подзадачу ты не можешь решить в данный момент и почему.

[fairplau]

Сообщение от min@y™

раздели задачу на подзадачи, так проще. скажи, какую подзадачу ты не можешь решить в данный момент и почему.

Мне нужно, что бы сохранялись вопросы варианты ответа и правильный ответ в типизированный, а как сделать это я понятия не имею, никогда не работал с типизированным файлом

[min@y™]

Мне нужно, что бы сохранялись вопросы варианты ответа и правильный ответ в типизированный, а как сделать это я понятия не имею, никогда не работал с типизированным файлом

хранить такие вещи в типизированном файле – плохая идея. задача учебная (сделал-сдал-забыл) или боевая (>2 пользователей, развитие)?

[type_Oleg]

Сообщение от fairplau

... никогда не работал с типизированным файлом

Просто с файлами, надеюсь работал..

type TipFQ = record
 vopros:string[30];  // размер - обязательно, иначе файл не получится
 var_orvet:array[1..4]of string[20]; // варианты ответов
 num_prav:1..4;  // номер правильного ответа
end;
// ...
var
  ffq:file of TipFQ;

И т.д.

[min@y™]

прочитай вот этот топик, до конца, не поленись.
мне удалось написать прогу, которую просили в этом топике.
пару типизированных файлов с вопросами цепляю вложением.

а вот структура файла:

const
  QUESTION_REC_SIZE = 1517; // размер записи в байтах, размер файла кратен этому числу
  ANSWERS_COUNT_OFFSET = $00FB; // смещение кол-ва ответов
  ANSWERS_MAX_COUNT = 5; // максимальное кол-во ответов (???)

  // смещения байтов, хранящих размеры текстов ответов
  // AnswerOffset: array[0..ANSWERS_MAX_COUNT - 1] of Word = ();
  ANSWERS_OFFSET = $00FE; // смещение начала списка ответов
type
{
  вопрос  - 254 байта (причём, предположительно, байт по смещению 0x00FB (251) - кол-во ответов)
  ответ 1 - 253 байта
  ответ 2 - 253 байта
  ответ 3 + всё остальное - 757 байт (253 + 253 + 251?)
  всего 1517 байт = 254 + 4 * 253 + 251 = 254 + 1012 + 251 = 1012 + 505 = 1517.
}
  TQuestionRawData = array[0..QUESTION_REC_SIZE - 1] of Byte; // запись целиком
  TAnswerList = array[0..ANSWERS_MAX_COUNT - 1] of string; // список ответов в записи вопроса

если интересно, могу выслать весь проект с потрохами, мне не жалко. сомневаюсь, что сам разберёшься.

[fairplau]

Сообщение от min@y™

хранить такие вещи в типизированном файле – плохая идея. задача учебная (сделал-сдал-забыл) или боевая (>2 пользователей, развитие)?

учебная, сдал забыл

[min@y™]

Сообщение от fairplau

учебная, сдал забыл

ну тогда вот тебе кусок книжки, читай. там пример даже есть.