См.

• delphibasics-FreeAndNil
• docwiki.embarcadero-FreeAndNil
• pages-freeandnil
• eurekalog-freeandnil
• blogs.embarcadero
• ...

И взгляните на реализацию:

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

Примеры

Рассмотрим следующий код:

procedure TForm1.FormCreate(Sender: TObject);
var
  bm: TBitmap;
begin
  bm := TBitmap.Create;
  bm.LoadFromFile('C:\Users\Andreas Rejbrand\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\Football\up.bmp');
  bm.Free;

  if Assigned(bm) then
    bm.SaveToFile('C:\Users\Andreas Rejbrand\Desktop\test.bmp')
  else
    ShowMessage('Cannot save! The bitmap does no longer exist!');
end;

Это создаст ошибку или недопустимое (пустое) растровое изображение на моем рабочем столе, потому что я пытаюсь использовать освобожденный объект. Да, даже несмотря на то, что bm был освобожден, он все еще «назначен», то есть bm по-прежнему указывает на адрес памяти, даже если там нет ничего (пригодного для использования). Чтобы преодолеть это, можно установить bm: = nil в качестве меры предосторожности. Тогда assign (bm) вернет false, как хотелось бы. Более или менее, FreeAndNil (bm) является сокращением для bm.Free; bm: = ноль . Первый оператор освобождает всю память (и ресурсы ОС, время ЦП и т. Д., Используемые объектом), а bm: = nil устанавливает «указатель» bm в nil , так что bm больше не указывает на то место, где раньше находился объект, но больше не является им.Таким образом, вы (и подпрограммы вроде , назначенные ) не обманетесь, поверив, что все еще существует растровый объект.

Обсуждение

Некоторые говорят, что вы всегда должны использовать FreeAndNil (foo) , а не foo.Free . А почему бы не? Дополнительная инструкция foo: = nil , вероятно, не займет слишком много наносекунд для выполнения, и действительно assign (foo) = false - очень хорошее свойство освобожденного объекта. Но опять же, если вы знаете, что делаете, и знаете, что никогда больше не будете использовать объект foo после его освобождения, тогда вы можете просто использовать foo.free . На самом деле, некоторые могут возразить, что во многих случаях (но не во всех) попытка использовать переменную освобожденного объекта сама по себе является ошибкой. (Конечно, бывают случаи, когда вы делаете это намеренно - у вас есть объект foo , который иногда назначается, а иногда нет.)