SizeOf выдает значение на порядок меньше.

[Alex Cones]

Уже все перепробовал. Похоже, где что-то упускаю.

Const
   DNA_CELL = 50;

Type
  TForce = Record
        Hor : ShortInt;
        Ver : ShortInt;
     End;

  TVector = Record
     X     : SmallInt;
     Y     : SmallInt;
     Force : TForce;
  End;

  TChromosomes = Record
     Left  : Array of Byte;
     Right : Array of Byte;
  End;

  TDNA   = Record
     Chromosomes : TChromosomes;
  End;

  TNucleus = Record
      Cover : Array[0..7] of TVector;
      DNA   : TDNA;
  End;

...
Nucleus       : TNucleus;
...
SONucleus     : SmallInt;
...
SetLength(Nucleus.DNA.Chromosomes.Left , DNA_CELL);
SetLength(Nucleus.DNA.Chromosomes.Right, DNA_CELL);
SONucleus     := SizeOf(Nucleus); // 56!!!!

50 байт одной хромосомы + 50 байт второй хромосомы + еще дофига байт от векторов = 56???

P.S. Больше так не буду

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

6*8+8=56 все верно

обьюсню последнее 8

     Left  : Array of Byte;
     Right : Array of Byte;

это два указателя на массив байтов.(4*2)
не забывай что есть дин массив.

если надо чтоб массив входил в структуру то используй безразмерный массив

     Left  : Array[0..0] of Byte;
     Right : Array[0..0] of Byte;

но в твоем контексте это не возможно.

[Alex Cones]

Ааааа!!! Точно! Спасибо! Но как мне теперь быть с ДНК? Записывать побайтно в цикле? Я тогда вообще не пойму - мне нет нужды записывать эти два указателя? Только размерность массивов?

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

мне нет нужды записывать эти два указателя?

это ко мне вопрос?

мне кажется вам надо сохранить значение этих массивов...
как делал бы я..4 байта длинна(читаем её или пишем) массива.потом читаем/пишем этот массив (довольно просто...ставим массив длину(если читаем) и пишем/читаем ставля в поток первый элемент(или адрес первого элемента для BlockRead) и далее второй так же)


ЗЫ: похоже не редко помогаю
постучись в асю если есть желание: 446843180

ЗЗЫ если что могу дать примеры кода...но я люблю оформлять как класс для работы с типом файла(сам пишу сейчас класс подобный...структура тоже не проста)..но я обычно пишу для потоков)

[Alex Cones]

ЗЫ: похоже не редко помогаю

При демократии всегда так

постучись в асю: 446843180

Стучу.

P.S. Тему можно в клоуз.