AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Object.Free ruft unter XE5 kein Destroy mehr auf!?

Object.Free ruft unter XE5 kein Destroy mehr auf!?

Ein Thema von Shark99 · begonnen am 21. Dez 2016 · letzter Beitrag vom 21. Dez 2016
Antwort Antwort
Seite 2 von 2     12
TBx
(Moderator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.796 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#11

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 07:32
Auch sehr beliebt ist es, beim Überschreiben des Destructors das override zu vergessen.
Dann ruft Free nämlich den Destructor des Vorfahren auf.
  Mit Zitat antworten Zitat
Shark99

Registriert seit: 16. Mai 2007
403 Beiträge
 
#12

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 11:44
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:
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.
Das spuckt FastMM aus:
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".
Angehängte Dateien
Dateityp: rar GenericsMemTest.rar (2,85 MB, 1x aufgerufen)
  Mit Zitat antworten Zitat
Shark99

Registriert seit: 16. Mai 2007
403 Beiträge
 
#13

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 11:45
Auch sehr beliebt ist es, beim Überschreiben des Destructors das override zu vergessen.
Dann ruft Free nämlich den Destructor des Vorfahren auf.
Das war es!! Danke!

Eine Frage hab ich noch. Beim Create() hatte ich auch keinen Override. Wieso wurde es trotzdem aufgerufen?

Geändert von Shark99 (21. Dez 2016 um 12:26 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.942 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 12:38
Eine Frage hab ich noch. Beim Create() hatte ich auch keinen Override. Wieso wurde es trotzdem aufgerufen?
Weil du beim Create den Typ ja explizit davor schreibst.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.951 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 13:03
Weil die Instanz nicht im Delphi-Referenz durchsuchenTObject.Create erstellt wird, sondern in Delphi-Referenz durchsuchenTObject.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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (21. Dez 2016 um 13:21 Uhr)
  Mit Zitat antworten Zitat
freimatz

Registriert seit: 20. Mai 2010
1.056 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#16

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 16:57
Auch sehr beliebt ist es, beim Überschreiben des Destructors das override zu vergessen.
Dann ruft Free nämlich den Destructor des Vorfahren auf.
Das war es!! Danke!
Kommt da keine Warnung vom Compiler?

Geändert von freimatz (21. Dez 2016 um 17:09 Uhr)
  Mit Zitat antworten Zitat
Shark99

Registriert seit: 16. Mai 2007
403 Beiträge
 
#17

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 18:02
Kommt keine Warnung.
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.786 Beiträge
 
Delphi 10 Seattle Enterprise
 
#18

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 18:10
Doch.

Oh.
  Mit Zitat antworten Zitat
Shark99

Registriert seit: 16. Mai 2007
403 Beiträge
 
#19

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 18:21
Hast Recht. Warnungen diesen Typs waren Global abgeschaltet.
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#20

AW: Object.Free ruft unter XE5 kein Destroy mehr auf!?

  Alt 21. Dez 2016, 23:10
Hast Recht. Warnungen diesen Typs waren Global abgeschaltet.
Eigentlich immer eine schlechte Idee, Warnungen global zu deaktivieren.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf