Скачать: CL | DM;

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

← →
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;

---

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

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


Оно же published ?

---

← →
Джо ©   (2006-12-22 17:29) [5]

Да, это зря :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c