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 ?
Ich glaube das hier gehört schon fast in Klatsch und Tratsch^^..
Gruß
Michael