Изменить RecordSize после части считывания.

[Alex Cones]

Открываю файл:

Assign(F,Path+FileName);
Reset(F,SizeOf(Membrane));
BlockRead(F,Membrane,1);

У меня еще есть остальные органоиды, которые также требуют загрузки своих параметров из файла. Но проблема в том, что они все имеют разный SizeOf. К примеру SizeOf(Nucleus) = 72, А SizeOf(Membrane) = 42. Как считать другие органоиды? Единственное решение, которое я вижу - использовать несколько файлов, но оно мне не очень нравится, поскольку гора файлов в папке с размером до 72 байт - не очень хорошая идея.

P.S. Органоиды = записи.

UPD ------------------------------------

Еще пришел в голову такой "зверский" способ:
Считали первый органоид, Потом открыли файл снова reset`ом, в котором поставили размер второго органоида, так как каретка сбита, отмотали вперед SizeOf(Membrane) байт, считали второй органоид, и т.д., пока все не будут считаны. Но способ, конечно, зверский. Есть что-нибудь менее извращенное?

[raxp]

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

далее считав 1 хэдер мы имеем расположение всех органоидов и свободно получить их тело через sizeof()... пример >>> тут <<<

...единственно, тут подход лучше не через assign, а читать файл архива (набора всех ДНК) в filestream или memorystream.

4 байта на размер хэдера (размер хэдера = 4 + 4 + n*(4+4))
4 байта на кол-во органоидов
4 байта на адрес и 4 байта на размер первого органоида
4 байта на адрес и 4 байта на размер второго органоида
4 байта на адрес и 4 байта на размер n-го органоида

адрес первого органоида
тело

адрес второго органоида
тело

адрес n-го органоида
тело

[Alex Cones]

Спасибо, буду бороться... Надеюсь не стану жертвой фагоцитоза...

[raxp]

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

upd
-------
немножно переосмыслил структуру...

  // STADO STRUCT-
  NameHead = record
   name_nabor_dnk: array [0..255] of Char; // name stado
   count_ameba     : Longword;                 // count amebi
  end;

  // AMEBA STRUCT-
  NameAmeba = record
   name_ameba: array [0..255] of Char;     // name ameba
   size_ameba: longword;                        // size telo
  end;


 TListAmeba = record // динамический массив амеб
   ameba: array of NameAmeba;
   //... тут еще чего нибудь
  end;

var la: tlistameba;

вначале считываем NameHead и узнаем кол-во тел в стаде, потом считываем столько раз блоки с описанием амеб NameAmeba, сколько count_ameba из NameHead. Окончание будет означать начальную позицию первого тела, а размеры каждой нам уже известны из TListAmeba, далее просто считываем блоки информации, смещая каждый раз позицию считывания на размер каждого предыдущего тела.

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

а может описать метод LoadFromStream?