Непонятна логика работы Image

[veresk]

Может я конечно и совсем тупой, не спорю, но кажется что-то не так.

Объявляю переменную P:TPicture. Открываю через диалог катинку:

Код: Выделить всё

  If OpenPictureDialog1.Execute = true then
     begin
          Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
     end;

Вытаскиваю картинку в переменную:
P:= Image1.Picture;

Всё, в принципе, работает. Но как только очищаю\заменяю Image.Picture - убивается и переменная P. Такое ощущение, что P - только ссылка на Image1.Picture, а не копия. А мне надо копию держать в памяти, да не одну.

А вот ситуация P.Picture.LoadFromFile(OpenPictureDialog1.FileName); не отрабатывает, падает. Почему, спрашивается? Хотя при компиляции никаких ошибок вообще не выдаёт.

[SSerge]

TPicture это и есть указатель. Переменная любого класса - это указатель. Статические экземпляры классов синтаксисом Object Pascal не позволены.

[veresk]

А в какую тогда переменную можно замутить для сохранения картинки? Или вообще только поток?

[SSerge]

Для хранения коллекции картинок imho есть список TPictureList.

Ну и содержимое класса формально никто не запрещает копировать, только в отличие от C++ неявных конструкторов копирования в паскалях не бывает, то есть нельзя сотворить

TClass *a=new TClass(...);
TClass b=*a;

Поэтому ищется что-то типа конструктора Create с аргументом, являющимся экземпляром этого же класса, либо какая-нибудь функция (по смысловому содержанию) типа CopyTo, принадлежащая копируемому классу.

[veresk]

Для хранения коллекции картинок imho есть список TPictureList.

Да, меня сия конструкция полностью удовлетворяет. Именно то, что надо, точнее не бывает. Спасибо, выручил нуба!