Создан ли FileStream

[KoBRaAndrey]

Создана ли переменная типа TFileStream?

showmessage(booltostr(assigned(musicfile)));
musicfile:=tfilestream.Create('test',fmcreate);
showmessage(booltostr(assigned(musicfile)));
musicfile.Free;
showmessage(booltostr(assigned(musicfile)));

Выводит что переменная существует после освобождения.

[evg_m]

Free удаояет объект на который ссылается переменная, но не саму ссылку(значение переменной).
Freeandnull слелает и то и дркгое.

[Serge_Bliznykov]

evg_m +1
фактически ничего не удаляется, просто память, выделенная под объект в конструкторе при его создании,
при вызове деструктора помечается как свободная (т.е. которая может быть выделена при необходимости).

KoBRaAndrey
вместо: musicfile.Free;
напишите:

FreeAndNil(musicfile);

[GunSmoker]

См. http://www.gunsmoker.ru/2011/04/windows-spin-off.html - миф №14.

P.S.

Сообщение от Serge_Bliznykov

фактически ничего не удаляется

Неправда. Зависит от менеджера памяти. Он может и сразу освобождать.

[Serge_Bliznykov]

Сообщение от GunSmoker

Неправда. Зависит от менеджера памяти. Он может и сразу освобождать.

GunSmoker,
а можно чуть-чуть поподробнее? Мы же сейчас про Delphi говорим?
Там разные менеджеры памяти в зависимости от версии Delphi?
И в каком случае может сразу освобождать?



p.s. кстати, у Вас в заголовке, где описываются мифы написан текст, который является мифом? Или является истиной?
дело в том, что

Миф №14: Obj.Free не приводит к Obj = nil

Это не миф. не приводит. О чём, собственно ниже в тексте и сказано...
Может стоит изменить заголовок данного мифа на действительно мифический?!

[GunSmoker]

Сообщение от Serge_Bliznykov

Мы же сейчас про Delphi говорим?

Да.

Сообщение от Serge_Bliznykov

Там разные менеджеры памяти в зависимости от версии Delphi?

Да.

Сообщение от Serge_Bliznykov

И в каком случае может сразу освобождать?

Разве это не очевидно?

Менеджер памяти рано или поздно должен освобождать занятые блоки памяти. Да, он может придержать память (либо потому что в ней ещё выделены под-блоки, либо как кэш, чтобы экономить в будущем на выделении памяти), но это необязательно - и часто не происходит. В противном случае это будет означать, что программа на Delphi вообще не освобождает память!

Подумайте и о таком варианте:

function GetMemPassThrough(Size: Integer): Pointer;
begin
  Result := VirtualAlloc(nil, Size, MEM_COMMIT or MEM_RESERVE, PAGE_READWRITE);
end;

function FreeMemPassThrough(P: Pointer): Integer;
begin
  VirtualFree(P, 0, MEM_RELEASE);
  Result := 0;
end;

function ReallocMemPassThrough(P: Pointer; Size: Integer): Pointer;
begin
  // ...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MM: TMemoryManager;
begin
  MM.GetMem := GetMemPassThrough;
  MM.FreeMem := FreeMemPassThrough;
  MM.ReallocMem := ReallocMemPassThrough;
  SetMemoryManager(MM);
end;

Если кажется, что это краевой случай - подумайте про x64. С неслабой вероятностью там будет использоваться HeapAlloc или кто-то вроде него - потому что переписывание FastMM на x64 - очень нетривиальная задача.

Сообщение от Serge_Bliznykov

p.s. кстати, у Вас в заголовке, где описываются мифы написан текст, который является мифом? Или является истиной?
дело в том, что
Это не миф. не приводит.

Так там и стоит: confirmed.

Заголовок выбран именно таким как раз по этой причине:

musicfile.Free;
showmessage(booltostr(assigned(musi cfile)));

Т.е. 99% новичков этого не ожидают.

[GunSmoker]

P.S. Изначально я это вообще к тому говорил, что

Free удаояет объект на который ссылается переменная, но не саму ссылку(значение переменной)

и

память, выделенная под объект в конструкторе при его создании, при вызове деструктора помечается как свободная

никак не связаны.