paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 11:19:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed memleaks

Browse Source 
git-svn-id: trunk@3571 -
This commit is contained in:
lazarus 2002-10-27 11:58:34 +00:00
parent bd89207df6
commit 989c2e0f11
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/form.inc
View File

@ -18,6 +18,9 @@
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
destructor TForm.Destroy; destructor TForm.Destroy;
begin begin
{$IFDEF VER1_0}
BeforeDestruction;
{$ENDIF}
Assert(False, 'Trace:Destroying signals for TForm'); Assert(False, 'Trace:Destroying signals for TForm');
inherited Destroy; inherited Destroy;
end; end;