запись и чтения динамического рекорда с 1 динамическим типом в бинарный файл delphi

[Alexandr17]

Собственно вопрос. Как сделать запись и чтение рекорда такой структуры в бинарный файл.

Type TWAnswers=Array of String;
type TQuestion=Record
  {-- Вопрос  --}
  Question:String;
  {-- Варианты ответов  --}
  Answers:TWAnswers;
  {-- Правильный ответ  --}
  Correct_Answer:integer;
  {-- Балы прибавляемые за правильный ответ --}
  Point_Correct_Answer:integer;
  {-- Балы отнимаемые за неправильный ответ --}
  Point_Wrong_Answer:integer;
  {-- ИД вопроса  --}
  ID_Question:Integer;
end;
Var
  Question:Array of TQuestion;

[Stilet]

Нужно разработать так называемую Сериализацию.
Все зависит от того как ты записываешь.

[Alexandr17]

Никак пока. Тут главное чтобы значений этих переменных нельзя было прочесть
{-- Правильный ответ --}
Correct_Answer:integer;
{-- Балы прибавляемые за правильный ответ --}
Point_Correct_Answer:integer;
{-- Балы отнимаемые за неправильный ответ --}
Point_Wrong_Answer:integer;
Динамический рекорд записать в файл легко. но проблема в том что в рекорде содержится 1 динамический тип перенаправляющий на тип string. тоесть чтобы его записать во врайте нужно здать размер этого типа. но это сделать не возможно только если писать отдельно. а это приведет к тому что все переменные писать отдельно прийдется. а переменную string через врайт без ограничения 255 символов не запишешь.

[Stilet]

Тут главное чтобы значений этих переменных нельзя было прочесть

Это не главное. Их зашифровать можно.
А вот то как ты определишь структуру записываемого - важно.
Я обычно для записи строки в файл просто вписываю ее длину перед самой строкой. потом тогда считать проще. То же самое для динмассиов - сначала вписывается их размерность потом считываются сами данные.

[Alexandr17]

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

[Stilet]

Ну вроде-бы есть функция Finalize(), которая якобы образмеривает динмассивы, но я не силен в этой теории, никогда ей не пользовался. Я всегда делал в подобном классе метод, сериализирующий данные в поток с описанием структуры, чтоб их потом можно было развернуть.

[Alexandr17]

а ты можешь дать пример записи для такой структуры рекорда или нет. можно и через stream мне главное чтобы файл был бинарным

[Stilet]

Ну мочь то могу, но нужно его писать )
А мне сейчас тупо влом, я отдыхаю от будней, блича зырю, шоколад хаваю... да и пора на выборы топать скоро.
Уж изивини - лень чет напала в эти выходные.

[Alexandr17]

Кстати шифровчик я уже сделал. не думаю что любой сможет сказать что здесь за текст зашифрован:

1100111111110000111011101110001111110000111000001110110011101100111000000010000011100100111011101110101111100110111011011110000000100000111100001110000011100001111011101111001011100000111100101111110000101110

[саша40]

Так же как и всегда.
SetLength, New и т.п.
P.S. В английском языке множественное число у существительных выражается через прибавлению к существительному окончания s.