Структура не сохраняется в TFileStream

[Arkuz]

Здравствуйте. Почему-то не сохраняется в файл структура, да не то структура, даже обычные переменные не сохраняются.
Архивчик прикрепляю...

Процедуры для просмотра SaveTest и OpenTest
Файлик с названием test получается в результате сохранения
А структура сформированная для сохранения выглядит так:

ШАБЛОН!!!
TQuestion = record
                Name        :string[255]; // Вопрос
                Num         :integer;     // номер вопроса
                TrueCount   :integer;     // количество верных ответов
                Answer      :array of string[255]; // массив ответов
                ResultValue :array of Boolean;     // ложный или истинный ответ
                Modified    :boolean; // проверка на изменение записи
              end;

Представление занесённых данных
 TQuestion = record
                Name        :string[255]; // Вопрос №1
                Num         :integer;     // 1
                TrueCount   :integer;     // 1
                Answer      :array of string[255]; // Answer[1] =да; Answer[2] =нет 
                ResultValue :array of Boolean; // ResultValue[1]=true; ResultValue[2]=false;
                Modified    :boolean; // true
              end;

Заранее благодарен.

[пауэрлифтинг]

SaveOpenFileStream.Write(str,length (str)*SizeOf(str[1]));

[пауэрлифтинг]

SizeOf(string) будет всегда 4 байта так так сохраняется только указатель
когда читаеш SaveOpenFileStream.Read(str,SizeOf( str)); тоже размер читаемой строки не известен. надо сформировать структуру файла где бутет храниться размер строки а потом сама строка

[Arkuz]

пауэрлифтинг, а что касается записи, как мне выделить память под структуру. Тем более что в ней хранятся массивы строк, да ещё неопределённые массивы....

Что же за формула получается...?

[Пепел Феникса]

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

TQuestion = record
                Name        :string[255]; // Вопрос
                Num         :integer;     // номер вопроса
                TrueCount   :integer;     // количество верных ответов
                Answer      :array of string[255]; // массив ответов
                Modified    :boolean; // проверка на изменение записи
                ResultValueLength:integer;
                ResultValue :array of Boolean;     // ложный или истинный ответ
              end;

пример:
переменки

Q:TQuestion;
S:TStream;//(актуально для всех потоков)

теперь сохраняем в потоке

Q.ResultValueLength:=Length(Q.ResultValue);
S.Write(Q,SizeOf(Q)-(SizeOf(Pointer)*1));
S.Write(Q.ResultValue[0],Length(ResultValue)*SizeOf(boolean));

и чтение

S.Read(Q,SizeOf(Q)-(SizeOf(Pointer)*1));
SetLength(Q.ResultValue,Q.ResultValueLength);
S.Read(Q.ResultValue[0],Length(ResultValue)*SizeOf(boolean))

* делаем поправку размера(нам не нужно сохранять указатель на массив(который еще и не совпадет потом с данными)
тут 1 это количество динамических массивов структуры(да-да-да, можно хранить так структуры хоть с тысячью дин массивов)
** тип сохраняемого дин массива(array of boolean)

вот так

[пауэрлифтинг]

TQuestion = record
                Name        :string[255]; // Вопрос
                Num         :integer;     // номер вопроса
                TrueCount   :integer;     // количество верных ответов
                Answer      :array of string[255]; // массив ответов
                ResultValue :array of Boolean;     // ложный или истинный ответ
                Modified    :boolean; // проверка на изменение записи
              end;

вот так еще можно:

var f: file;
i,t: integer;
begin
assignfile(f,'test.dat');
rewrite(f,1);
blockwrite(Name,sizeof(Name));
blockwrite(Num,sizeof(Num));
blockwrite(TrueCount,sizeof(TrueCount));
i:=length(Answer);
blockwrite(i,sizeof(i));
for t:=0 to i-1 do
blockwrite(Answer[t],sizeof(Answer[t]));
i:=length(ResultValue);
blockwrite(i,sizeof(i));
for t:=0 to i-1 do
blockwrite(ResultValue[t],sizeof(ResultValue[t]));
blockwrite(Modified,sizeof(Modified));
closefile(f);

а читать:

var f: file;
i,t: integer;
begin
assignfile(f,'test.dat');
reset(f,1);
blockread(Name,sizeof(Name));
blockread(Num,sizeof(Num));
blockread(TrueCount,sizeof(TrueCount));
blockread(i,sizeof(i));
setlength(Answer,i);
for t:=0 to i-1 do
blockread(Answer[t],sizeof(Answer[t]));
blockread(i,sizeof(i));
setlength(ResultValue,i);
for t:=0 to i-1 do
blockread(ResultValue[t],sizeof(ResultValue[t]));
blockread(Modified,sizeof(Modified));
closefile(f);

(могут быть синтаксические ошибки писал без delphi)

[Arkuz]

Спасибо, буду пробовать...

[Arkuz]

Пепел Феникса не понятно для чего

ResultValue :array of Boolean;     // ложный или истинный ответ

делать динамическим? Может вы не так поняли его предназначение?

[Пепел Феникса]

у вас он и есть динамический(длина не фиксированна)

[Arkuz]

Пепел Феникса, оказывается я не понял вас. Я не правильно прочитал.

Вот как я это понял, если что поправьте.
Заводим поле ResultValueLength:integer; для определения размера, чтобы потом выделять при записи и чтении.
Ну а последним это поле ResultValue :array of Boolean;, чтобы определять память по полю ResultValueLength:integer;?
Видимо так...