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 von mkinzler:

... oder besser .FreeAndNil

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 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 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?