Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранение компоненты. [D7, WinXP]

STIK © (2006-12-22 13:30:00)
Здравствуйте. У меня на форме динамически создаётся несколько компонент TImage, им присваиваются имена и картинки, как при завершении работы программы сохранить эти TImage, а потом загрузить обратно(при старте) не потеряв имя. Спасибо.

Джо (2006-12-22 17:29:00) [1]
Да, это зря :)

Сергей М. (2006-12-22 15:29:00) [2]
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:00) [3]

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

Оно же published ?

Джо (2006-12-22 15:20:00) [4]
TStream.WriteComponent
TStream.ReadComponent
+отдельно записывать имя.

DimaBr (2006-12-22 14:01:00) [5]
Внимание!Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »