Сохранение динамических объектов и их параметров

@AleksandRus18 · Регистрация: 26.05.2015

Студворк — интернет-сервис помощи студентам

В общем такая ситуация. Создаю динамические объекты, присваиваю процедуры, чтобы они двигались на форме.
Как сохранить эти динамические объекты и их параметры, чтобы при перезапуске программы они восстанавливались и опять двигались ?

Пример моего кода по созданию дин. объектов и присваивания процедуры на движение:

Delphi
1
2
3
4
5
6
7
8
9
10
Image := TButton.Create(celi);
  Image.Parent := celi;
  //Image.Color:=clYellow;
  Image.Font.Size:=20;
  //Image.Picture.LoadFromFile('F:\FCBarcelona\ãîë.bmp');
  Image.Caption:=edit1.Text;
  Image.OnMouseDown :=MyMouseDown;
  Image.OnMouseMove :=MyMouseMove;
  Image.OnMouseUp :=MyMouseUp;
  Image.OnClick:=OnClickButton;

Пока получается только восстановить эти объекты, но они не двигаются. сохраняю всю форму.

Сохранить:

Delphi
1
2
3
4
5
6
7
8
9
procedure TCeli.btn2Click(Sender: TObject);
var
F: TFileStream;
begin
qry1.Active:=False;
F := TFileStream.Create('F:\\test7.ini', fmCreate);
F.WriteComponent(Self);
F.Free;
end;

Очищение формы

Delphi
1
2
3
4
5
6
7
procedure TCeli.btn3Click(Sender: TObject);
var
x: integer;
begin
for x := Self.ComponentCount - 1 downto 0 do
Components[x].Free;
end;

Восстановить:

Delphi
1
2
3
4
5
6
7
8
9
procedure TCeli.FormDblClick(Sender: TObject);
var
F: TFileStream;
begin
F := TFileStream.Create('F:\\test7.ini', fmOpenRead);
F.ReadComponent(Self);
F.Free;
qry1.Active:=true;
end;

@VladWH · 31.05.2015, 23:08

как вариант после загрузки пробежаться по всем компонентам формы и присвоить им нужные процедуры

@krapotkin · 01.06.2015, 06:28

записываются не динамические объекты, а данные, которые вам нужны для их повторного создания
определите, что нужно, сохраните в файл
потом в обратном порядке - читаем, смотрим, что нужно создать, и создаем так же - динамически...

Добавлено через 1 минуту
варианты с ReadComponent лучше не рассматривать имхо
я уже не помню, почему я когда-то отбросил этот способ как неудачный...

хотя, может меня сейчас поправят

@FIL · 01.06.2015, 13:22

Считывание из файла

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@VladWH 243 / 193 / 94 Регистрация: 01.05.2015 Сообщений: 732
	31.05.2015, 23:08
	как вариант после загрузки пробежаться по всем компонентам формы и присвоить им нужные процедуры 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,661 Записей в блоге: 21
	01.06.2015, 06:28
	записываются не динамические объекты, а данные, которые вам нужны для их повторного создания определите, что нужно, сохраните в файл потом в обратном порядке - читаем, смотрим, что нужно создать, и создаем так же - динамически... Добавлено через 1 минуту варианты с ReadComponent лучше не рассматривать имхо я уже не помню, почему я когда-то отбросил этот способ как неудачный... хотя, может меня сейчас поправят 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	01.06.2015, 13:22
	Считывание из файла 0