"Unsterbliche" Klassen

[Neutral General]

Hi,

Also das hier ist keine Frage die Lebensnotwendig ist, aber da mir grad langweilig ist würde ich gerne mal wissen ob man eine Klasse irgendwie "unsterblich" machen kann habs mal so versucht aber das geht nicht so richtig^^

Delphi-Quellcode:

TUnvKlasse = class(TObject)
   public
    S: String;
    destructor Destroy; override;
  end;

var Klasse: TUnvKlasse;

destructor TUnvKlasse.Destroy;
var Seele: TUnvKlasse;
begin
   Seele := Self;
   inherited Destroy;
   Self := Seele;
   Self.S := 'Hallo';
end;

dann hab ich halt zwei Buttons:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Klasse := TUnvKlasse.Create;
 Klasse.S := 'Test';
 Caption := TUnvKlasse.S; // Caption wird 'Test' ... logischerweise^^
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Klasse.Destroy;
 Caption :=Klasse.S; // es gibt keine AV aber es steht auch nix da bzw es steht '' da
                            // wenn ich nochmal drücke gibts ne AV^^
end;

Geht das irgendwie ? :mrgreen:
Ich glaube das hier gehört schon fast in Klatsch und Tratsch^^..

Gruß
Michael

[DGL-luke]

durch das seele := self lenkst du nur die referenz um. wenn dann müsstest du den konstruktor einfach leer lassen...

[Neutral General]

Sogar ein leerer Destructor nützt nichts :D

[DGL-luke]

wieso? wird der speicher gleich dealloziiert? ohne das inherited destroy; wird doch nichts freigegeben... ausser das findet im free statt... kann man das überschreiben?

[Neutral General]

Ich rufe ja nur Destroy auf...
und mein Destructor ist leer..

[Dax]

Es geht: Überschreibe FreeInstance der Klasse und tue darin nichts, nicht mal inherited. Auch wenn ich den Sinn der Aktion nicht sehe... :gruebel:

[Neutral General]

Ok danke es klappt :D

Naja das hat kein Sinn aber da mir langweilig war wollte ich mal ne Unzerstörbare Klasse erschaffen xD :mrgreen:

[jbg]

Zitat:

Zitat von Neutral General

Naja das hat kein Sinn aber da mir langweilig war wollte ich mal ne Unzerstörbare Klasse erschaffen xD :mrgreen:

Na das hätte man auch einfacher haben können: Einfach nicht .Free aufrufen.

[Neutral General]

Ja das wäre genauso wie wenn man sagen würde: Ein Mensch ist auch unsterblich solange man ihn nicht umbringt...(oder er an altersschwäche stirbt^^)

Das Objekt muss ja immun gegen alle Angriffe sein :mrgreen: :freak:

[Airblader]

Per Holzhammermethode könntest du theoretisch so oder so die Klasse "kaputtieren" ;)

air