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

[Marsel737]

вот что я имел ввиду:

for i:= 1 to 7 do
begin
  TImage(Components[i]).Picture.LoadFromFile('.........');
end;

Но как узнать какой индекс у каждой картинки?

И ещё вопрос, как реализовать всё то, что сказал mihali4?

Сообщение от mihali4

Картинки сохраняются каждая в свой файл.
А вот их координаты и размеры, а также пути/имена файлов с изображениями для восстановления при запуске программы сохраняют в ини-файле.
При новом запуске программы эти значения считываются, создается нужное количество TImage-й, они образмериваются и расставляются в соответствии со считанными значениями и уже потом в цикле можно считывать собственно изображения из файлов.
Только нужно добавить проверку:

if Components[i] is TImage then

Вот у меня есть процедура для создания, выбора картинки и сохранения её в файл:

procedure TfrmMain.imgNewClick(Sender: TObject);
begin
  MyImage:=TImage.Create(Owner);
  MyImage.Parent:=self;
  MyImage.Height:=64;
  MyImage.Width:=64;
  MyImage.Left:=100;
  MyImage.Top:=100;
  MyImage.Stretch:=true;
  MyImage.Visible:=true;
  MyImage.DragKind:=dkDock;
  MyImage.DragMode:=dmAutomatic;
  MyImage.PopupMenu:=PopupMenu1;
  MyImage.Name:='MyImage'+IntToStr(MyGlobVar);
  MyGlobVar:=MyGlobVar+1;
  if OpenPictureDialog.Execute  then MyImage.Picture.LoadFromFile(OpenPictureDialog.FileName);
  MyImage.Picture.SaveToFile('MyImage'+IntToStr(MyGlobVar)+'.jpg');
end;

Как сделать чтобы создаваемая картинка создавалась на 20 пикселей правее предыдущей?
И как сохранять в ини файл всё то, о чём говорил mihali4?

[Marsel737]

Реанимация темы...

Ещё раз повторю вопрос, как сделать так, ятоб новая картинка создавалась на 20 пикселей левее предыдущей, если при создании картинки она именуется как

MyImage.Name:='MyImage'+IntToStr(MyGlobVar);

естественно

  MyImage.Left:=100;
  MyImage.Top:=100;

придётся убрать.

И самый главный вопрос по теме, допустим я сохраняю картинку в каталог с программой вот таким образом:

MyImage.Picture.SaveToFile('MyImage'+IntToStr(MyGlobVar)+'.jpg');

Как теперь её загружать и позиционировать?

пс Знаю правило - одна тема - один вопрос, но у меня и так один общирный вопрос: как сохранять динамически созданные объекты

[DarkEvil]

я вам вроде предлагал неплохое решения:

Сообщение от DarkEvil

type
  im_data = packed record
    Height : Integer;
    Width : Integer;
    Left : Integer;
    Top : Integer;
    FileName : String[255];
  end;

.....

var
 imgdat: File of im_data;

зделайте такого типа запись и сохраняйте в ней все розмеры\позиции имейджа, а также полное имя файла, а потом в цикле просто подгрузите все
а здесь класс для работы с файлом через стрим, есть функции чтения записи...
http://programmersforum.ru/showpost....8&postcount=27

[Marsel737]

DarkEvil, я помню что вы мне это предлагали, я просто не очень понимаю как с этой записью работать, может поподробнее объясните?

[mihali4]

http://www.programmersforum.ru/showt...light=inifiles

[DarkEvil]

смотрите :

var
 imgdat: im_data;
 imStream : TRecordStream;
begin
 imgdat.width := Image1.width;
 imgdat.left := Image1.left;
....
imStream.WriteRec(imgdat);
imStream.free;

типо так

а потом загружаете через imStream.ReadRec
исходник на клас TRecordStream я приводил в ссылке выше