Уничтожение формы

[soleil@mmc]

есть еще такая возможность убивать объекты - FreeAndNil(имя_объекта)
но формы лучше всего дестроить именно Release

если форма используется многократно, то может имеет смысл ее не убивать, а создать при первом вызове, а дальше только хайдить и при необходимости снова показывать?!

[chandrasecar]

Все описанное выше - правильно. Но кто нибудь проверял диспетчером задач свое приложение, сколько оно места занимает? Понакидайте на форму, которую создаем как "доступную", побольше разных компонентов (ListView). Coздайте две кнопочки: одна будет создавать форму, другая уничтожать. Обратите внимание, сколько ваша программа занимает. Проделайте десяток процедур по созданию-уничтожению формы, и сравните занимаемую память с начальной величиной. Так что получается, что не в программе дело а в виндоусе, который не хочет сразу освобождать память. Возможно он и освобождает, но она числится как используемая.

[Пепел Феникса]

резервирование памяти...то есть винда оставляет память за приложением(а вдруг понадобится ему)...поидее если недостаток памяти она должна её перераспределить...а на практике хрен знает

[s.Creator]

Набросал небольшой тест ( на Delphi 7 )
Вложение 9817
(правда там модальная форма пока пустая - можете продолжить с разным заполнением).

Поправлю немного Antony41
Assigned(const P) - не проверяет "существует ли объект"

Tests for a nil (unassigned) pointer or procedural variable.

Она проверяет на Nil переменную

procedure TMainForm.actFreeCheckAssignedExecute(Sender: TObject);
var
  form: TModalDialog;
begin
  form := TModalDialog.Create(Self);
  try
    //........
  finally
    form.Free;
  end;
  CheckAssigned(form);// 'Форма существует'
  form := nil;
  CheckAssigned(form);// 'Форма НЕ существует'
end;

procedure TMainForm.CheckAssigned(Sender: TObject);
begin
  if Assigned(Sender) then
    mLogs.Lines.Add('Форма существует')
  else mLogs.Lines.Add('Форма НЕ существует');
end;

(в тесте есть кнопочка)
Или можно сделать так:

procedure TMainForm.actFreeCheckAssignedExecute(Sender: TObject);
var
  form: TModalDialog;
begin
  form := TModalDialog.Create(Self);
  form.Show;
  form := nil;
  CheckAssigned(form);// 'Форма НЕ существует'
end;

(форма живет но "потерялась" )

Далее:
- Компоненты (и думаю в менеджере памяти) используют TList, TStrings и их наследники (например Owner хранит список своих подчиненных)
А у этих объектов есть свойство Capacity, которое не уменьшается при удалении элемента.
- Некоторые присоединяемые модули (особенно компонентов-оболочек над ActiveX виндов) создают у себя объекты уничтожаемые при завершении программы.

Но в общем-то это (по моему) не должно увеличивать память каждый раз.
И недавно прочитал про AQTime (посмотрите через Google) - инструменте для обнаружения утечек памяти и не только, совместимого с Delphi, но пока не пробовал.

[Downloads]

что делать, если не помогает?!

begin
if Assigned(Form2) then Form2 := nil; 

 with TForm2.Create(Application) do
  try
    if ShowModal = mrOK then
      with fRect do
      begin
      if (Right > Left) and (Bottom > Top) then
      begin
        // задача
      end
      else
      begin
       // ошибка
        Exit;
      end; {If}
    end; {fRect}
  finally {ShowModal}
    Free;
  end;
end;

[Аватар]

if Assigned(Form2) then Form2 := nil;

Этот код не освободит форму. Используй FreeAndNil(Form2)

with TForm2.Create(Application) do

Этот код форму создаст, но в переменную Form2 указатель на неё не поместит. Нужно иметь ввиду, если предполагается использование в дальнейшем переменной Form2

[Downloads]

Аватар, так как лучше? Уничтожение модальной формы
весь свой код я выложил (направьте)