https://plus.google.com/u/0/101464037359200037201/posts/cbQtQCwcDbg
Мда...
И автору поста.
И Embarcadero.
Да и Борланд там тоже "засветился".
Не буду раскрывать тему. Слишком много букв надо.
Коллеги вот знают, что с подсчётом ссылок там беда.
Как была, так и есть.
+Михаил Костицын
+Виктор Морозов
Не раз уж мы наедались в своей практике.
P.S. Ну и код VCL:
Мда...
И автору поста.
И 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;
