вторник, 26 мая 2015 г.

Ссылка. Мда...

https://plus.google.com/u/0/101464037359200037201/posts/cbQtQCwcDbg

Мда...

И автору поста.
И Embarcadero.

Да и Борланд там тоже "засветился".

Не буду раскрывать тему. Слишком много букв надо.

Коллеги вот знают, что с подсчётом ссылок там беда.

Как была, так и есть.

 +Михаил Костицын
 +Виктор Морозов

Не раз уж мы наедались в своей практике.

P.S. Ну и код VCL:

destructor TWinControl.Destroy;
var
  I: Integer;
  Instance: TControl;
begin
  Destroying;
  if FDockSite then
  begin
    FDockSite := False;
    RegisterDockSite(Self, False);
  end;
  FDockManager := nil;
  FreeAndNil(FDockClients); {V}
  if Parent <> nil then RemoveFocus(True);
  if FHandle <> 0 then DestroyWindowHandle;
  I := ControlCount;
  while I <> 0 do
  begin
    Instance := Controls[I - 1];
    Remove(Instance);
    Instance.Destroy;
    I := ControlCount;
  end;
  FreeAndNil(FBrush); {V}
{$IFDEF LINUX}
  if FObjectInstance <> nil then WinUtils.FreeObjectInstance(FObjectInstance);
{$ENDIF}
{$IFDEF MSWINDOWS}
  if FObjectInstance <> nil then Classes.FreeObjectInstance(FObjectInstance);
{$ENDIF}
  inherited Destroy;
end; 

Комментариев нет:

Отправить комментарий