Сохранение в файл сложной динамической структуры

[alexBlack]

Сообщение от _Инженер_

Да, я тоже уже пришел к тому, что буду писать через fileStream. А поясните пожалуйста, зачем этот рекорд в рекорде? И чем плох string? Указатели будут перед записью в файл ликвидированы и заменены стринговыми идентификаторами или вроде того.

рекорд в рекорде чтобы записать/считать весь блок целиком а не отдельными полями. Со ссылками это невозможно, поэтому они вынесены в отдельный блок. Со строками то-же самое - обычные string - это ссылки, а shortString - массивы char. Впрочем, можно так не делать, тогда

fileStream.Write(KolVL, ...
fileStream.Write(KolMN, ...
...

[_Инженер_]

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

рекорд в рекорде чтобы записать/считать весь блок целиком а не отдельными полями.
....
fileStream.Write(KolVL, ...
fileStream.Write(KolMN, ...
...

проблема в том, что мне надо записать даже не блок целиком - я бы пережил отдельное перечисление каждого поля, мне надо записать массив таких рекордов.

То есть я так понимаю, что нереально записать в файл без дополнительной головной боли массив с большой разнородностью внутри элементов?

[alexBlack]

Сообщение от _Инженер_

проблема в том, что мне надо записать даже не блок целиком - я бы пережил отдельное перечисление каждого поля, мне надо записать массив таких рекордов.

То есть я так понимаю, что нереально записать в файл без дополнительной головной боли массив с большой разнородностью внутри элементов?

Что-то я не пойму. У Вас в массиве элементы разного типа ?
Тогда почему бы не использовать классы вместо record.

А если они одинаковые, то в чем проблема ? - цикл по элементам и запись

[_Инженер_]

Нет, элементы одинаковые. Просто элементы содержат разнородные поля. Ну я сверху привел пример. Насчет использования классов - это уже не сейчас. Надо сохранить и открыть то, что уже есть. Времени нет.

[_Инженер_]

то есть если убрать из рекорда ссылки (а можно их сделать просто nil или таких полей вовсе не должно быть?) а также заменить стринги, то будет работать fileStream.Write(record, sizeof(TPointMN)) ?

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

[alexBlack]

Сообщение от _Инженер_

то есть если убрать из рекорда ссылки (а можно их сделать просто nil или таких полей вовсе не должно быть?) а также заменить стринги, то будет работать fileStream.Write(record, sizeof(TPointMN)) ?

Да, понимаете правильно. Страшно не то что они есть. Будет записываться и с ними. Просто при чтении ссылка будет указывать в никуда.

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

нет, все пишется в один поток. Известен размер записи.

Write(r[1], sizeof(TPointMN))
Write(r[2], sizeof(TPointMN))

и также чтение:

Read(r[1], sizeof(TPointMN))
Read(r[2], sizeof(TPointMN))

Никогда не использовали TFileStream ? Используйте то, к чему привыкли.
Assign/Rewrite/WriteBlock - суть не изменится.

[BOBAH13]

Ужас. Теория такова: вначале файла пишется таблица.. записи ваших данных верхнего уровня... а так же в заголовке указывается смещение на первую запись и сколько таких записей в данном блоке ( верхний уровень записей ). Для каждой записи, если число или фиксированая длинна строки к примеру array[0..1] of char то пишем сразу, если длина не фиксирована пишем так слово для хранения длины строки и смещение ( ну обычно я делаю записи строк в конце файла ) на строку уже определенной длины. И так далее.... таким образом если данная запись хранит в себе другую то в ней пишем смещение на внутриние записи и их кол-во... переходим и опять в рекурсивном записывании файла )) проходим те же этапы.... и так можно до бессконечности... Я обычно делаю переменную типа текущее смещение на строку к примеру... и когда записуется новая строка присваиваю текущую переменную ( как смещение ) и увеличиваю на длину записанной строки..

врятли конечно вы тут что-то поймете сделал вывод из выше стоящих постов ....

[_Инженер_]

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

Ужас. ....

Ну отчего же? Поди Вы сразу такой умный из роддома выписались?

[BOBAH13]

Нет разумеется. Поэтому и отвечаю. Я бы так сделал как описал.

[evg_m]

а БД не пробовали

таблицв1 . данные об узле электро
таблица2 данные об узле нефть
таблица3 данные об узле ...
таблица 4 id узла электро1 id соседа слева
id узла электро1 id соседа справа
id узла электро1 id соседа сверху
id узла электро2 id соседа справа
id узла электро3 id соседа сверху
ну и так далее

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