[tapky666]

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

Код:

TArticles = record
Name: String[40];
Definition: String[100];
Image: TPicture; //TBitMap, может быть.
End;

Все данные заполняются и записываются по-очереди в run-time, но это уже другая история.

Мне необходимо понять, как сохранить в файл массив записей, содержащих picture.

Ранее подобный вопрос уже был:
(http://www.delphisources.ru/forum/sh...ad.php?t=4662)
В результате обсуждения san-46 предложил такой исходник:
(http://www.delphisources.ru/forum/at...&d=1213136627)
Но класс, который в нём описывается, рассчитан на одну запись.
А отредактировать класс на запись массива я не умею.
Прошу помощи. Если есть статьи, которые мне помогут, рад буду и им.
Спасибо.
tapky6666@gmail.com

[poli-smen]

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

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

Код:

TArticles = record
Name: String[40];
Definition: String[100];
Image: TPicture; //TBitMap, может быть.
End;

Все данные заполняются и записываются по-очереди в run-time, но это уже другая история.

Мне необходимо понять, как сохранить в файл массив записей, содержащих picture.

record это структура постоянного размера, а в TPicture могут быть картинки произвольного размера, поэтому в общем случае нельзя сохранить record содержащий TPicture.
Ну и кроме того здесь Image это просто указатель (просто 4 байта в Win32) на объект класса TPicture, так что если просто сохранить такую запись, а потом в следующий раз загрузить, то указатель Image будет наверняка указывать не на картинку, а куда-то в "космос" (это где-то в районе Access Violation).

[lmikle]

Учись работать с потоками (TStream).
Тебе придется сохранять сначала размер картинки, потом сами данные. Читать в обратном порядке. Делать придется через промежуточный поток в памяти (TMemoryStream).

[NumLock]

а так как:

TPicture contains a bitmap, icon, metafile graphic, or user-defined graphic.

то придется еще и тип объекта сохранять. последний тип (user-defined) вообще в радость должен быть)