свободной памяти, используемая Exception Tbitmaplistanimation.animationbitmap поднятого EInvalid Указатель

Question

Проблемы я столкнулся как follows.Please отметить, я не профессионал в Дельфах паскаль

Чтобы сохранить большой объем памяти и время я создал процедура:

procedure TForm1.Placeholder(tspath: STRING); 
begin  //rgbholder :TImage globally declared (Dinamicly create image) 
    rgbholder.Free;//Free previous image 
    rgbholder := timage.Create(self); 
    rgbholder.Width := 10; 
    rgbholder.Height := 10; 
    rgbholder.Visible := false; 
    rgbholder.Bitmap.LoadFromFile(TSpath); 
end; 

procedure TForm1.Image3Click(Sender: TObject); 
begin 
    placeholder('Data\Grass\Grassanim1low.png'); 
    bitmaplistanimation5.Stop; 
    bitmaplistanimation5.Loop := true; 
    //bitmaplistanimation5.AnimationBitmap.LoadFromFile('Data\Grass\Grassanim1low.png'); 
    bitmaplistanimation5.AnimationBitmap.Assign(rgbholder.Bitmap); 
    bitmaplistanimation5.AnimationCount := 22; 
    bitmaplistanimation5.AnimationRowCount := 2; 
    bitmaplistanimation5.Duration := 2.5; 
    bitmaplistanimation5.PropertyName :='bitmap'; 
end; 

Теперь моя проблема высвобождая, что память о bitmaplistanimation5.AnimationBitmap.Assign(rgbholder.Bitmap);

При выполнении этого кода

bitmaplistanimation5.Stop; 
bitmaplistanimation5.Enabled := false; 
bitmaplistanimation5.AnimationBitmap.Free; 

Все идет хорошо, пока я не закрою исполняемый файл с помощью close; или просто закрыв его выходом в окне.

После закрытия он выдает исключение ошибки приложения EInvalidPointer в модуле Project1.exe в 00007A55. Недействительная операция указателя

Не думаю, что я пытаюсь освободить освобожденную память, я также не пытаюсь освободить память, которая была выделена где-то, кроме диспетчера памяти, если только процедура заполнителя не учитывается. Если я не пропущу что-то или не понимаю что-то, что я должен.

Answer 1

Как правило, вы должны только позвонить Free на объект, который вы создали. Вы не создали этот объект, его создал элемент управления TBitmapListAnimation. Соответствие этой этикетке является допустимым. Локализация:

bitmaplistanimation5.AnimationBitmap.Free; 

Вам необходимо будет удалить это.

Я подозреваю, что правильный путь, чтобы очистить память от битовой карты FMX является установка Width и Height свойства растрового изображения в 0.

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