Как правильно уничтожить форму?

[Дениска]

Пустое приложение. У меня есть формы: А и B.

А по кнопке создаёт и показывает B и сразу самоуничтожается:

 

B := TB.Create(nil);

B.Show;

A.Free;

 

B в свою очередь делает обратное:

 

A := TA.Create(nil);

A.Show;

B.Free;

 

На Win32 платформе в диспетчере задач память по мере открытия форм не растёт. В iOS 6.1.1 iPhone 3 проследить память я не смог, но после 5-10 открытий форм приложение падает. Вероятнее всего растёт хип (heap). 

 

Почему тогда не работает FREE?? Как правильно освободить память и уничтожить форму в iOS???

 

Я нашёл ответ. Если на форме есть картинки, то их нужно: Image1.Bitmap.Assign(nil);

Изменено 20 марта, 2015 пользователем Дениска

[#WAMACO]

 

Пустое приложение. У меня есть формы: А и B.

А по кнопке создаёт и показывает B и сразу самоуничтожается:

 

B := TB.Create(nil);

B.Show;

A.Free;

 

B в свою очередь делает обратное:

 

A := TA.Create(nil);

A.Show;

B.Free;

 

На Win32 платформе в диспетчере задач память по мере открытия форм не растёт. В iOS 6.1.1 iPhone 3 проследить память я не смог, но после 5-10 открытий форм приложение падает. Вероятнее всего растёт хип (heap). 

 

Почему тогда не работает FREE?? Как правильно освободить память и уничтожить форму в iOS???

 

Я нашёл ответ. Если на форме есть картинки, то их нужно: Image1.Bitmap.Assign(nil);

 

в Delphi XE7 Update 1 вроде все нормуль

обычный close работает

версия какая у Вас?

[Дениска]

У меня XE7 update1. Я нашёл ещё одну причину такого поведения. Проблема решена. В мобильных платформах вместо Free или Close нужно использовать DisposeOf. 

http://fire-monkey.ru/topic/10-kak-pravilno-udaliat-kontroly-v-runtime/

Изменено 6 апреля, 2015 пользователем Дениска

[ENERGY]

DisposeOf не освобождает память, а просто вызывает деструктор.

Можно не использовать его, а использовать обычный Close с TCloseAction.caFree.

Я проверял на мобильном компиляторе (Android) - все уничтожается корректно, срабатывает деструктор формы.

Обязательно создавать надо форму с Owner nil, иначе форма не уничтожится. 

frmLoading := TfrmLoading.Create(nil);
frmLoading.Show;

//В форме:

procedure TfrmLoading.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;

//Уничтожаем:

frmLoading.Close;
frmLoading := nil;

 

Если на ARC компиляторах вместо Close, вызвать FreeAndNil(frmLoading)  - форма не уничтожится и останется видимой.