Im Class Destructor alle Strings leer

[Björn Ole]

Ist wahrscheinlich einfach nur zu spät für mich, aber ich kann sonst nicht einschlafen.
Folgende Klasse:

Delphi-Quellcode:

TStatic = class
private
  class var FInt: integer;  
  class var FStr: string;
  class constructor Create;
  class destructor Destroy;
public
  class procedure ShowMe;
end;

Und folgende Anwendung mit einem TButton auf dem Formular:

Delphi-Quellcode:

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  TStatic.ShowMe; // Ausgabe: "7Hallo" - GUT!
end;

{ TStatic }

class constructor TStatic.Create;
begin
  FStr := 'Hallo';
  FInt := 7;
  TStatic.ShowMe; // Ausgabe: "7Hallo" - GUT!
end;

class destructor TStatic.Destroy;
begin
  TStatic.ShowMe; // Ausgabe: "7 " - WARUM?
end;

class procedure TStatic.ShowMe;
begin
  ShowMessage(IntToStr(FInt) + FStr);
end;

Es kompiliert und gibt keine Warnungen, aber warum kennt der Destruktor meinen String nicht mehr und wie kann ich korrekt auf ihn zugreifen?

[FredlFesl]

Schätze mal, der String ist schon futsch d.h. freigegeben.

[Peter1999]

Hallo,

ich habe zwar denn Sinn eines Class Constructors (erst recht eines Class Destructors) noch nicht ganz verstanden, aber hier stehen zumindest ein paar Regeln, die man beachten soll:

"You do not have to declare a class destructor if you declare a class constructor, and vice versa."
"They do not have to be called Create and Destroy."

Dafür wird es schon Gründe geben.

[ventiseis]

Ist so gewollt.

Siehe:

• http://qc.embarcadero.com/wc/qcmain.aspx?d=78328
• http://qc.embarcadero.com/wc/qcmain.aspx?d=89143

[himitsu]

Ist leider alles noch etwas "verbugt", bzw. blöde geplant.

Sei froh, daß der Destructor in deinem 2010 überhaupt aufgerufen wird.
(Anfangs hatte man es glatt vergessen)

Wobei es hier einen Hack gibt, denn wie man an FInt sieht, sind Pointer davon natürlich nicht betroffen.
(ein PString + NewStr)

[Björn Ole]

Danke für eure Antworten.

@Peter1999, die beiden genannten Hinweise haben nichts mit meinem Problem zu tun. Trotzdem gut zu wissen.

Hm, das ist natürlich unvorteilhaft, dass das so by-Design ist.
Ändere ich aber FStr: string; zu FStr: PChar; funktioniert es, ein ReportMemoryLeaksOnShutdown := true; zeigt keine Meldungen. Spricht was dagegen?

[himitsu]

Zitat von Björn Ole:

Spricht was dagegen?

nö

Kommt aber drauf an, wie/was du mit diesem PChar gemacht hast.

[FredlFesl]

Das das 'by Design' ist, ist doch krank.
Ich habe im Instanz-Destruktor doch auch noch Zugriff auf die Feldinhalte, wieso sollte das bei einem Class Destructor nicht so sein?