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

[Marsel737]

Всем доброго времени суток!

Передо мной стоит такая задача: на форме есть картинки, необходимо сделать возможность выбора количества этих картинок, т.е. картинки можно добавлять и удалять. И ещё их можно двигать, но вот в чем проблема, картинки я создаю вот так:

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;
  if OpenPictureDialog.Execute  then MyImage.Picture.LoadFromFile(OpenPictureDialog.FileName);
end;

И мне нужно чтобы при следующем запуске эта картинка уже была на форме и не пустой, а содержать ранее выбранную через

  if OpenPictureDialog.Execute  then MyImage.Picture.LoadFromFile(OpenPictureDialog.FileName);

картинку.

И еще удаляю картинки так:

MyImage.Destroy;

Первы раз картинка удаляется, на второй раз ошибка

[DarkEvil]

а вы используйте запись для сохранения

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

.....

var
 imgdat: File of im_data;

image1.Free;

[Marsel737]

DarkEvil, сделал на удаление Free, теперь когда удаляю вторую картинку удаляется первая, когда удаляю оставшуюся - ошибка.

Как объявить запись запись я понял, а как теперь в неё сохранить картинку?

[mihali4]

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

Первый раз картинка удаляется, на второй раз ошибка

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

[Marsel737]

mihali4, вы наверно ещё помните что я совсем недавно создавал тему по поводу создания динамических объектов, и я вообщем ещё в этом вопросе не до конца разобрался, поэтому спрашиваю, как мне их именовать чтоб названия у всех разные были?

[mihali4]

Заводим глобальную переменную (сохраняем ее при выходе в ини-файле).
Соответственно, при запуске читаем ее.
И добавляем строку при создании:

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

Далее это же имя используем при уничтожении экземпляра...
Например, так:

var myimage: TComponent;
begin
myimage:=FindComponent('Image1');
myimage.Destroy;
end;

[Marsel737]

mihali4, спасибо теперь всё ясно

[DarkEvil]

Вам обязательно сохранить картинку? Если она лежать будет постоянно в одном месте, то есть никто не удалит, просто сохраните путь к ней, если же нужна именно картинка, то тут советую использовать БД

[Marsel737]

mihali4, оказывается всё не так ясно, как казалось на первый взгляд. Предложенный вами код для удаления, как я понял, удаляет по названию, тогда как мне узнать название, если удалене реализовано при помощи PopupMenu?

var myimage: TComponent;
begin
myimage:=FindComponent('Image1');
myimage.Destroy;
end;

[mihali4]

Это однозначно определяется при помощи свойства PopupComponent property (TPopupMenu)