AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Auch sehr beliebt ist es, beim Überschreiben des Destructors das override zu vergessen.
Dann ruft Free nämlich den Destructor des Vorfahren auf. |
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Liste der Anhänge anzeigen (Anzahl: 1)
Im Code wird DataList (und nicht myDataList) freigegeben, war ein Vertipper hier im Forum (d.h. das Problem ist nach wie vor da).
Delphi-Quellcode:
Das spuckt FastMM aus:
unit Unit1;
interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Generics.Collections, Generics.Defaults; type TTestForm = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TDataItem = class Modified: int64; Data: string; constructor Create(iModified: int64 = 0; sData: string = ''); end; TDataList = class(TObjectList<TDataItem>) private StringList: TStringList; public Constructor Create(AOwnsObjects: Boolean = True); Destructor Destroy; end; var TestForm: TTestForm; DataList: TDataList; implementation {$R *.dfm} constructor TDataItem.Create(iModified: int64 = 0; sData: string = ''); begin Inherited Create; Modified:= iModified; Data := sData; end; constructor TDataList.Create(AOwnsObjects: Boolean = True); begin Inherited Create(AOwnsObjects); StringList := TStringList.Create; end; destructor TDataList.Destroy; begin StringList.Free; Inherited Destroy; end; procedure TTestForm.Button1Click(Sender: TObject); var DataItem: TDataItem; begin {$IFDEF AUTOREFCOUNT} Caption := 'AUTOREFCOUNT ist definiert!'; {$ELSE} Caption := 'AUTOREFCOUNT ist nicht definiert!'; {$ENDIF} DataList := TDataList.Create(True); DataItem := TDataItem.Create(0 ,'Abc'); DataList.Add(DataItem); Button1.Caption := DataList[0].Data; DataList.Free; end; end.
Delphi-Quellcode:
--------------------------------2016/12/21 11:42:31-------------------------------- A memory block has been leaked. The size is: 100 This block was allocated by thread 0xEE8, and the stack trace (return addresses) at the time was: 4068EE [System.pas][System][@GetMem$qqri][4316] 4076CF [System.pas][System][TObject.NewInstance$qqrv][15447] 407EBE [System.pas][System][@ClassCreate$qqrpvzc][16757] 4B5A3E [System.Classes.pas][System.Classes][Classes.TStringList.$bctr$qqrv][6821] 5BC1D1 [System.Generics.Collections.pas][Unit1][Generics.Collections.%TObjectList__1$p15Unit1.TDataItem%.$bctr$qqro][2083] 5BAAD8 [Unit1.pas][Unit1][TDataList.$bctr$qqro][52] 5BAB63 [Unit1.pas][Unit1][TTestForm.Button1Click$qqrp14System.TObject][70] 523A31 [Vcl.Controls.pas][Vcl.Controls][Controls.TControl.Click$qqrv][7340] 53A887 [Vcl.StdCtrls.pas][Vcl.StdCtrls][Stdctrls.TCustomButton.Click$qqrv][5313] 53B401 [Vcl.StdCtrls.pas][Vcl.StdCtrls][Stdctrls.TCustomButton.CNCommand$qqrr26Winapi.Messages.TWMCommand][5774] 5234D8 [Vcl.Controls.pas][Vcl.Controls][Controls.TControl.WndProc$qqrr24Winapi.Messages.TMessage][7224] The block is currently used for an object of class: TStringList The allocation number is: 704 Current memory dump of 256 bytes starting at pointer address 7FE7DEF0: B4 25 49 00 00 00 00 00 00 00 00 00 A0 B8 E9 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 31 2B 6B 7C 80 80 80 80 80 80 80 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ´ % I . . . . . . . . . * ¸ é . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 + k | € € € € € € € € . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . --------------------------------2016/12/21 11:42:31-------------------------------- This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer): 85 - 100 bytes: TStringList x 1 Note: Memory leak detail is logged to a text file in the same folder as this application. To disable this memory leak check, undefine "EnableMemoryLeakReporting". |
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Zitat:
Eine Frage hab ich noch. Beim Create() hatte ich auch keinen Override. Wieso wurde es trotzdem aufgerufen? |
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Zitat:
|
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Weil die Instanz nicht im TObject.Create erstellt wird, sondern in TObject.NewInstance, welches der Compiler heimlich vor dem Create aufruft.
Fehlt bei Create das Inherited, dann sind Variablen der Vorfahren nicht initialisiert. z.B. bei TComponent-Nachfahren knallt es danach dann gern, wenn man es vergessen hat. |
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Zitat:
|
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Kommt keine Warnung.
|
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Doch.
Oh. |
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Hast Recht. Warnungen diesen Typs waren Global abgeschaltet.
|
AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz