Форум: "Основная";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];
ВнизСохранение компоненты. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 1.929 c