AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Verunsicherung mit Destructor, Free und FreeAndNil
Thema durchsuchen
Ansicht
Themen-Optionen

Verunsicherung mit Destructor, Free und FreeAndNil

Ein Thema von arc · begonnen am 19. Nov 2010 · letzter Beitrag vom 15. Okt 2011
Antwort Antwort
Seite 1 von 2  1 2      
schlecki

Registriert seit: 11. Apr 2005
Ort: Darmstadt
148 Beiträge
 
Delphi XE2 Enterprise
 
#1

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 19. Nov 2010, 14:24
Hallo arc,

ein Constructor sollte in der Regel "Create" heißen. Der Destructor muss auf jeden Fall "Destroy" heißen. Wichtig ist beim Desctructor auch, dass er als "override;" deklariert wird.

Delphi-Quellcode:
type
  TMyClass = class(...)
  public
    constructor Create(); reintroduce;
    destructor Destroy(); override;
    ...
  end;

...

constructor TMyClass.Create();
begin
  inherited Create();
  ...
end;

destructor TMyClass.Destroy();
begin
  ...
  inherited;
end;

Dein Destructor wird dann auch von Free und FreeAndNil (welches intern wieder Free aufruft ) genutzt.
  Mit Zitat antworten Zitat
Benutzerbild von arc
arc

Registriert seit: 6. Nov 2009
Ort: Elbflorenz
62 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 19. Nov 2010, 14:28
Vielen Dank, dann werde ich meinen Code entsprechend ändern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.558 Beiträge
 
Delphi 12 Athens
 
#3

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 19. Nov 2010, 14:46
Sollte und müßte sind soeine Sache.

Es muß nicht, aber es hat sich so eingebürgert.



Delphi-Quellcode:
type TBasicModuleList = class
  public
    constructor init; virtual;
    destructor done; virtual;

    destructor Destroy; override;
  end;

constructor TBasicModuleList.init;
begin
  inherited Create; // *1
  ...
end;

destructor TBasicModuleList.done;
begin
  ...
  inherited Destroy; // *2
end;

destructor TBasicModuleList.Destroy;
begin
  done; // *3
end;
*1
könnte man weglassen, aber besser man schreibt es immer, bevor man es mal vergißt

*2
wie schlecki schon sagte, dieses sollte man besser auch aufrufen
(obwohl man es hier auch weglassen könnte)

Grund: der Constructor und Destructor von TObject ist leer

*3
falls der originale Destructor aufgerufen wird, muß der neue Destructor auch mit ausgeführt werden.




Der Destructor muß virtuell sein, damit immer der aktuelle ausgeührt wird, welcher zum erzeugten Objekt gehört, egal über welchen Klassentypen (Typ der Variable, bzw. des Funktions-Parameters) er aufgerufen wird.

Der Constructor muß nicht virtuell sein, es sei denn man ruft ihn über einen Klassenvariable (class of ...) auf, wo man natürlich auch auf den aktuellen Contructor zugreifen will. (siehe TComponent der VCL)






Also, alles ist möglich, aber um Verwirrungen zu vermeiden, ist es nicht unbedingt zu empfehlen





PS: Da man den Destructor doch eh nicht direkt aufrufen soll.

Delphi-Quellcode:
type TBasicModuleList = class
  public
    constructor init; virtual;
    destructor destroy; override;

    function done;
  end;

constructor TBasicModuleList.init;
begin
  inherited Create;
  ...
end;

destructor TBasicModuleList.destroy;
begin
  ...
  inherited;
end;

function TBasicModuleList.done;
begin
  Free;
end;
"init" zum Erstellen ala "Create" und "done" zum Freigeben "Free".

Jetzt darf man bei Vererbungen nur nicht vergessen, daß Create nicht mehr verwendet werden darf (das ist bei den anderen Beispielen auch der Fall).
Und beim Freigeben bleibt die Linie über Destroy erhalten. (hier hätte man sonst auch beim "done" aufpassen müssen, daß bei Vererbungen Destroy ebenfalls nicht wiederverwendet wird.)

Darum vielleicht noch einen Schutz mit verbauen.
Delphi-Quellcode:
type TBasicModuleList = class
  public
    constructor create;
    destructor destroy; override;

    constructor init; virtual;
    function done;
  end;

constructor TBasicModuleList.create;
begin
  raise Exception.Create('create darf nicht verwendet werden');
end;

destructor TBasicModuleList.destroy;
begin
  ...
  inherited;
end;

constructor TBasicModuleList.init;
begin
  inherited Create;
  ...
end;

function TBasicModuleList.done;
begin
  Free;
end;
zusätzlich vielleicht auch noch dieses versuchen
(obwohl es gegen die OOP-Richtlinien verstößt, könnte man versuchen create und destroy auszublenden)
Delphi-Quellcode:
type TBasicModuleList = class
  protected
    constructor create;
    destructor destroy; override;
  public
    constructor init; virtual;
    function done;
  end;
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (19. Nov 2010 um 15:03 Uhr)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 19. Nov 2010, 15:49
Hallo,

und noch das:

Der destructor Destroy wird nicht zum Zerstören der Klasse aufgerufen, sondern Free.

FreeAndNIL ist nichts anderes als ein Free und nachfolgendes NIL-Setzen.


Heiko
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von HeikoAdams
HeikoAdams

Registriert seit: 12. Jul 2004
Ort: Oberfranken
661 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 19. Nov 2010, 16:01
Und obendrein wird in der Online Hilfe auch explizit davon abgeraten, destroy aus dem Programmcode heraus aufzurufen.

Zitat von Online Hilfe für TObject.Destroy:
Rufen Sie Destroy nicht direkt auf. Verwenden Sie stattdessen Free . Die Methode Free überprüft, ob die Objekt-Referenz nicht bereits nil ist und ruft Destroy nur bei Bedarf auf.
Jeder kann ein Held werden und Leben retten!
Einfach beim NKR oder der DKMS als Stammzellenspender registrieren! Also: worauf wartest Du noch?

Geändert von HeikoAdams (19. Nov 2010 um 16:05 Uhr)
  Mit Zitat antworten Zitat
FredlFesl

Registriert seit: 19. Apr 2011
293 Beiträge
 
Delphi 2009 Enterprise
 
#6

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 15. Okt 2011, 14:25
Der destructor Destroy wird nicht zum Zerstören der Klasse aufgerufen, sondern Free.
Also, Destroy wird schon zum Zerstören der Klasse aufgerufen, schließlich ist das der Destruktor.

Man kann 'destroy' aufrufen. Ohne Probleme. Wenn man sich seiner Sache sicher ist. Hie z.B.
Delphi-Quellcode:
MyObject := TMyObject.Create;
Try
  MyObject.Do;
Finally
  MyObject.Destroy; // <-- Ich kann sicher sein, das MyObject instantiiert ist.
End;
Und obendrein wird in der Online Hilfe auch explizit davon abgeraten, destroy aus dem Programmcode heraus aufzurufen.
Siehe oben. Man fragt sich, warum.

Der einzige Grund 'Free' aufzurufen, ist doch der:
Wenn man mal 'Free' und mal 'Destroy' verwendet, ist das nicht sauber. Da Free bei unsauberer Programmierung robuster ist, verwenden wir eben immer Free. Außerdem machen das Alle.

Und wenn man wirklich rumschlampen will, nimmt man eben immer 'FreeAndNil'. Dann ist man entgültig auf der sicheren Seite. Man produziert zwar überflüssigen Code, aber wem das egal ist, bitte sehr.

Bitte nicht falsch verstehen: FreeAndNil ist manchmal sehr praktisch aber eben nicht immer.
Das Bild hängt schief.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.558 Beiträge
 
Delphi 12 Athens
 
#7

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 15. Okt 2011, 14:44
Warum willst du unbedingt Destroy verwenden?
Bzw., was ist soooo schlimm an Free?


PS:
Free > FreeAndNil
Destroy > DestroyAndNil
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke
Online

Registriert seit: 10. Jun 2003
Ort: Berlin
10.057 Beiträge
 
Delphi 12 Athens
 
#8

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 15. Okt 2011, 16:49
Und wenn man wirklich rumschlampen will, nimmt man eben immer 'FreeAndNil'. Dann ist man entgültig auf der sicheren Seite. Man produziert zwar überflüssigen Code, aber wem das egal ist, bitte sehr.
Wenn du so überzeugt von dir und allen, deren Code du verwendest, bist, dass du der Meinung bist, dass niemand irgendwo im Quelltext Fehler produziert, bitte...

Ich mache aber auch mal Fehler und dabei ist es von unschätzbarem Wert, wenn ich überall FreeAndNil benutzt habe. Wenn dann nämlich (egal ob in eigenem oder fremden Code) durch einen Fehler nach der Freigabe auf einen Pointer zugegriffen wird oder ähnliches, sieht man das sofort statt (besonders bei fremdem Code) stundenlang suchen zu müssen, weil irgendwo Speicher überschrieben wird...

Ich habe schon oft genug fremden Code, z.B. aus diversen Open Source Projekten, debuggen müssen. Und wenn dort dann irgendwo Schutzverletzungen aus solchen Gründen auftreten, dann suche einmal woher der ungültige Pointer kam. Und das nur, weil eben nur das Objekt freigegeben wurde, aber der Pointer nicht auf nil gesetzt wurde...
Dann bin ich z.B. vor einigen Monaten bei einem solchen Problem in einer Komponentensammlung einmal durchgegangen und habe per RegEx an ca. 1000 Stellen Free durch FreeAndNil ersetzt und hatte dann das Problem in wenigen Minuten gefunden... (nachdem ich vorher schon eine ganze Weile erfolglos debuggt hatte...)
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 15. Okt 2011, 17:43
Ich verwende auch i.d.R. FreeAndNil, eben weil der Zeiger dann auch zurückgesetzt wird (und nicht nur der Speicher freigegeben).
Schön wäre, wenn durch Free der Zeiger automatisch auf nil gesetzt würde (ich würde da so argumentieren, wie es auch ein Anfänger betrachtet: Das Objekte ist zerstört, also ist es nicht mehr da (und zeigt nicht mehr auf einen Speicherplatz)) und auch alle weiteren Referenzen auf das freigegebene Objekt - aber das wäre dann ja wieder ein anderes Thema
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)

Geändert von stahli (15. Okt 2011 um 18:03 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.312 Beiträge
 
Delphi 12 Athens
 
#10

AW: Verunsicherung mit Destructor, Free und FreeAndNil

  Alt 19. Nov 2010, 16:08
Sollte und müßte sind soeine Sache.

Es muß nicht, aber es hat sich so eingebürgert.
Eben weil es sich eingebürgert hat, solle man es auch verwenden.

Man selber denkt vieleicht daran, daß man Init als Constructor aufruft. Wenn aber das Objekt mal von jemand anderem Verswendet wird, kann es sein, daß der jenige Create statt Init verwendet (weil immer noch verfügbar). Dann fehlen ggf. wichtige Funktionen, die zum Erzeugen des Objektes wichtig sind. Das gleiche gilt natürlich für den Destructor.
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 15:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz