Destructor überschreiben oder nicht?

[Giantics]

Hallo,
soll/muss man den Destructor in einer neuen Klasse überschreiben?

Code: Alles auswählen

type
  TMyClass = class
  public
     Destructor Destroy;
  end;

Hier kommt immer die Compiler-Warnung: "An inherited method is hidden by destructor TMyClass.Destroy". Daher habe ich ein override hinter Destroy eingebaut.
Die Folge davon ist jedoch, dass beim Aufruf von Free einer Instanz von TMyClass folgender Fehler kommt: "Project blabla raised exception class 'External: SIGSEGV'.".
Wie macht mans richtig? Was hat es mit "reintroduce" auf sich?

Gruß
Thomas

[theo]

Override ist schon richtig, aber du musst dann auch inherited aufrufen:

Destructor TTest.Destroy;
begin
inherited Destroy
end;

Wenn du aber nichts machst im Destructor, brauchst du ihn auch nicht überschreiben.

[Giantics]

das "inherited Destroy" ist schon drin. Der Fehler kommt bei override trotzdem.

Code: Alles auswählen

TMP3Gain = class
  private
    FMP3GainProcess:TMP3GainProcess;
    FReady: Boolean;
    FSongItemList: TSongItemList;  
    // ...    
  public
    procedure Run;
    constructor Create;
    destructor Destroy; override; // reintroduce     
//...
 
constructor TMP3Gain.Create;
begin
  inherited Create;
  FReady := true;
  SongItem := nil;
  FSongItemList := TSongItemList.Create;
end;
 
destructor TMP3Gain.Destroy;
begin
  FMP3GainProcess.Free;
  FSongItemList.Free;
  inherited Destroy;
end;

[Giantics]

Habe den Fehler gefunden
Das "FMP3GainProcess.Free;" im Destructor von TMP3Gain hat ihn ausgelöst. FMP3GainProcess wurde vorher schon eliminiert.
Allerdings wundert mich, dass es da trotzdem zu einem Fehler kommt. Free sollte ja dafür da sein, dass kein Fehler verursacht wird, auch wenn die Instanz nicht mehr exisiert. Oder irre ich mich da

Danke euch!

Gruß
Thomas

[theo]

Allerdings wundert mich, dass es da trotzdem zu einem Fehler kommt. Free sollte ja dafür da sein, dass kein Fehler verursacht wird, auch wenn die Instanz nicht mehr exisiert.

Ich glaube das klappt nur, wenn die Instanz vorher auf Nil gesetzt wurde.
Geht auch mit FreeAndNil();

[monta]

ich greif das Thema nochmal auf...weil ich mal nen ewiges Rätsel für mich klären will

Wann brauch ich nun eigentlich konkret ein inherited bzw. override?

Es gibt da ja verschiedenen Beispiele, mal mit, mal ohne.

Ich mach es bisher quasi immer so:

Code: Alles auswählen

TRTFWriter = class(TObject)
  private
    { private declarations }
    RTFText: TStrings;
  public
    { public declarations }
    constructor Create;
    destructor  Destroy;override;
  //....
  end;
 
 
implementation
 
{ TRTFWriter }
 
constructor TRTFWriter.Create;
begin
  RTFText := TStringList.Create;
end;
 
destructor TRTFWriter.Destroy;
begin
  inherited;
  RTFText.Free;
end;

wäre daran etwas falsch, bzw. warum wird bei obigem Beispiel eigentlich Create ebenfalls vererbt in meinem aber nicht? Bzw. müsste nicht auch create mit override und inherited versehen werden?

[theo]

Nein, denn überschreiben kannst du nur, was im Vorgänger mit virtual oder dynamic deklariert wurde. Da dein TRTFWriter von TObject abstammt, kannst und musst du den Konstruktor nicht "overriden".

Code: Alles auswählen

TObject = class
       public
          constructor Create;
          destructor Destroy;virtual;

Erst wenn ein Nachfahre was im Konstruktor macht, wird er ihn als Virtual Deklarieren. Dann kannst du ihn überschreiben und die Vorgänger-Prozedur mit inherited aufrufen.

[Christian]

Problem bei Create ist schlichtweg das man wenn man etwas überschreiben will die selbe Deklaration braucht. Deswegen werden construktoren so gut wie nie überschreiben trotsdem mit inherited der Vorgänger aufgerufen.

[af0815]

Zudem auch noch als Anhaltspunkt:

*)im Construktor ZUERST inherited (wenn nötig), dann die eigenen Objekte etc. initialisieren.
*) Im Destruktor zuerst die eigenen Objekte freigeben und ZULETZT das Objekt mit inherited (wenn nötig).

[Christian]

Das kann man so nicht pauschalisieren das kommt drauf an was das Objekt macht. Beispiel: Ich hab eine Komponente die eine Schnittstelle abstahiert. Es gibt einen Vorfahren der für alle Schnittstellen gleich ist und z.b. im Construktor eine Log Datei anlegt und mit den ersten Daten füllt. Im nachfahren muss die Schnittstelle geöffnet und vorbereitet werden.

Nun setz dort mal das inheritet an den Anfang des 2. Constructors ...

[af0815]

Es steht darüber: 'als Anhaltspunkt'