Сохранение компоненты.

← →
STIK (2006-12-22 13:30) [0]

Здравствуйте. У меня на форме динамически создаётся несколько компонент TImage, им присваиваются имена и картинки, как при завершении работы программы сохранить эти TImage, а потом загрузить обратно(при старте) не потеряв имя. Спасибо.

← →
DimaBr (2006-12-22 14:01) [1]

Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

← →
Джо © (2006-12-22 15:20) [2]

TStream.WriteComponent
TStream.ReadComponent
+отдельно записывать имя.

← →
Сергей М. © (2006-12-22 15:29) [3]

var
i, cnt: Integer;
img: TImage;
...

//запись в событии формы OnDestroy

fs := TFileStream.Create("images.dat", fmCreate);
with fs do
try
cnt := 0;
WriteBuffer(cnt, SizeOf(cnt));
for i := 0 to ComponentCount - 1 do
if Components[i] is TImage then do begin
WriteComponent(Components[i]);
Inc(cnt);
end;
Position := 0;
WriteBuffer(cnt, SizeOf(cnt));
finally
fs.Free;
end;

//чтение в событии формы OnCreate

fs := TFileStream.Create("images.dat", fmOpenRead);
with fs do
try
ReadBuffer(cnt, SizeOf(cnt));
for i := 0 to cnt - 1 do begin
img := TImage.Create(self);
ReadComponent(img);
end;
finally
fs.Free;
end;

> +отдельно записывать имя.

Оно же published ?

Да, это зря :)

Сохранение компоненты. Найти похожие ветки