Tcomponent/destructor

[Sh4d0w]

Moin,
habe eine Frage:

Und zwar habe ich zwei units. Eine hauptunit und eine andere wo eine Klasse definiert ist.
Die heißt z.B type THaus = Class(Tcomponent)

in dieser unit habe ich einen constructor und destructor. Im destructor steht drin:

Delphi-Quellcode:

destructor THaus.destroy;
begin
  inherited destroy;
end;

In der hauptunit habe ich dann einen button, mit dem ich das haus wieder löschen möchte, da steht drin:

Delphi-Quellcode:

begin
haus.destroy;
end;

Aber das wird nicht gelöscht! Was muss ich denn noch beachten? Danke schonmal.

[mkinzler]

Dein Destructor ist eigentlich unnötig, da er nicht mehr macht als der ererbte.
man sollte auch nie .Destroy selber aufrufen sondern .Free oder besser .FreeAndNil
Wenn die Komponente einen Owner besitzt, dann sorgt der für das Freigeben.

[Muetze1]

Zitat:

Zitat von mkinzler

... oder besser .FreeAndNil

:gruebel: :gruebel:

FreeAndNil() ist eine Procedure und der wird dann "Haus" übergeben.

In wie fern wird denn die Komponente nicht "gelöscht"?

[beo]

Im allgemeinen wernden Objekte mit .Free freigegeben.

Eine Außnahme gibt es allerdings noch bei Forms. Hier sollte man Form.Release verwenden, damit mögliche Events noch vollständig abgearbeitet werden können, bevor das Form dann freigegeben wird.

Die Definition einer Klasse würde ich immer in eine Unit packen, wenn das nicht passt, sollte man sich überlegen ob man die Objekte nicht besser modellieren kann:

Beispiel:

Delphi-Quellcode:

Unit uHaus;

interface;

uses
  ..

type
  THaus = class(Tcomponent)
  public
    Constructor Create(AOwner..);
    Destructor Destroy; override;
  end;


implementation
  

Constructor THaus.Create(AOwner..);
begin
  inherited Create(AOwner);
...
end;

Destructor Destroy; 
begin
 ...
 inherited Destroy;


end;

----

Delphi-Quellcode:

unit uTest


interface;

uses 
  uHaus;


procedure Test;
var
  haus:THaus;
begin
  haus := THaus.Create(nil);  // eine Instanz von Haus erzeugen
  haus.ToWas;  // Instanz benutzen
  haus.Free;  // Instanz wieder freigeben
end;

Du musst zwischen der Definition einer Klasse (hier in uHaus) und der Instanz (hier i uTest) einer Klasse unterscheiden. Nur die Instanz existiert wirklich, und nur mit der kannst du arbeiten. Die Definition ist eine Art Schablonbe, die beschreibt, was du abbilden möchtest.

[Sh4d0w]

Danke erstmal!

Also, ich habe mit haus.free das haus freigegeben und dann destroy aufgerufen, aber er macht nix! :?:

[mkinzler]

Zitat:

Zitat von Sh4d0w

Danke erstmal!

Also, ich habe mit haus.free das haus freigegeben und dann destroy aufgerufen, aber er macht nix! :?:

.Free ruft schon .Destroy auf.
Wie meinst du das es amcht nix?

[beo]

haus.free ruft den Destructor von Haus automatisch auf. Ein erneuter Aufruf von Destroy wäre falsch.

[Sh4d0w]

Also, wenn ich in dem button nur haus.free aufrufe macht er erst nix, bei einem zweiten klick kommt diese fehlermeldung:

"Im Projekt ist eine Exception der Klasse EInvalidPointer aufgetreten. Meldung: Ungültige Zeigeroperation."

[mkinzler]

Zitat:

Zitat von Sh4d0w

Also, wenn ich in dem button nur haus.free aufrufe macht er erst nix, bei einem zweiten klick kommt diese fehlermeldung:

"Im Projekt ist eine Exception der Klasse EInvalidPointer aufgetreten. Meldung: Ungültige Zeigeroperation."

Da siehst du das es doch funktioniert hat, das Objekt existiert nach dem ersten Aufruf nicht mehr.

[Sh4d0w]

hä? man kann es doch aber noch sehen... wie mach ich das denn weg?? und kann man die fehlermeldung unterbinden? also wenn ich ein zweites mal drauf klicke, das da die meldung dann nicht mehr kommt?

[mkinzler]

hast du ein Neuzeichnen der Form angestoßen? (.Update)

[Sh4d0w]

Achsooo, nun geht das! vielen dank. :-)
Aber hast du vllt. noch einen tip wie man den fehler unterbinden kann?

[Treffnix]

Die Fehlermeldung kannst du unterbinden, indem du nicht den Destructor des bereits zerstörten Objekts nochmal aufrufst. FreeAndNil würde das z.B. schon verhindern. Oder du setzt haus nach dem destroy selbst auf nil und prüfst vorher mit assigned( haus ), ob es haus noch gibt.

[Sh4d0w]

wie kann man haus denn auf nil setzen?

so z.b:

Delphi-Quellcode:

if Haus <> nil then
...

?

[mkinzler]

Bei Verwendung von

Delphi-Quellcode:

FreeAndNil( haus);

oder

Delphi-Quellcode:

  haus.Free;
  haus := Nil;

[hoika]

Hallo,

falls es nicht so rausgekommen ist.

Ein .Free erzeugt keinen Fehler, wenn das Object NIL ist

Delphi-Quellcode:

FreeAndNIL(Haus);
FreeAndNIL(Haus);

erzeugt also keinen Fehler.
Das 2malige FreeAndNIL kannst du dir auch als 2mal Button-Klick vorstellen.


Heiko