Werden alle Objekte einer TForm beim Programmende zerstört?

[kagi3624]

Hallo, werden die Objekte der TForm, die ich zur Laufzeit kreiere, beim Programende zerstört? Also sowas:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    fJasonResponse1 : TJson;
    fJasonResponse2 : TJson;
  public
    function A() : integer;
    function B() : bool;
  end;

Mit button1onClick erstelle ich dann die fJasonResponse1 und fJasonResponse2..lösche die aber nirgends.

[TiGü]

Ja, kannste so machen, ist aber halt dann Aussscheidungsprodukt!

[stahli]

Dein Programm wird normalerweise damit funktionieren - ABER:

Du erzeugst damit Speicherlecks.
Mit dem Ende Deiner Anwendung werden zwar die reservierten Speicher ohnehin freigegeben, aber man sollte es dennoch sauber wieder aufräumen.

Dazu könntest Du im OnCreate fJasonResponse1 := nil; zuweisen und im OnDestroy prüfen, ob es freigegeben werden muss:

Delphi-Quellcode:

if Assigned(fJasonResponse1) then
  FreeAndNil(fJasonResponse1);

(Man kann FreeAndNil auch ohne vorherige Prüfung aufrufen, aber so ist m.E. besser erkennbar, was gewollt ist.)

Im Normalfall wird man kein echtes Problem erhalten, wenn man den Speicher nicht explizit aufräumt, aber es können sich irgendwann doch Probleme einstellen.

So könnte ein Objekt bei seiner Freigabe im Destructor irgendwelche Daten sichern oder Einstellungen speichern. Wenn man dies dann umgeht, kann es irgendwann doch mal Probleme geben.

Also besser eine sorgfältige Arbeitsweise angewöhnen und einhalten.

[himitsu]

Nein, außer es wären TComponent-Nachfahren und du setzt den passenden Owner (z.B. Self)

Hier mußt du selbst freigeben.



Windows räumt zwar am Ende noch den Programmspeicher auf, so dass nach Programm-Ende es weg wäre,
aber das hat nichts mit dem Freigeben der Form zu tun.
Und möchte man eventuell man andere Speicherlecks finden könne, sollte sowas dennoch selbst aufräumen. (wird sonst unübersichtlich)



Es gibt andere JSON-Komponenten die nutzen Interfaces (oder spezielle oder Records) ... diese würden sich selbst freigeben.

[Dalai]

Und was passiert, wenn der Button mehrfach geklickt wird? Die zuvor erstellten Instanzen sind dann zwar noch vorhanden, aber keine Variable verweist mehr auf sie. Nettes Speicherleck.

Kurz gesagt: Gewöhn dir solch eine unsaubere Arbeits-/Programmierweise gar nicht erst an sondern mach es gleich ordentlich. Das schont auf lange Sicht die Nerven, vor allem bei der Suche nach Fehlern und Speicherlecks.

Grüße
Dalai

[Codehunter]

Ich bin mir im Moment nicht sicher, ob FastMM4 noch D6 unterstützt. Aber falls ja empfehle ich das zu verwenden und dir generell alle Memleaks reporten zu lassen. Bei neueren Delphis geht das ja von Haus aus.

[TurboMagic]

Zitat von kagi3624:

Hallo, werden die Objekte der TForm, die ich zur Laufzeit kreiere, beim Programende zerstört? Also sowas:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    fJasonResponse1 : TJson;
    fJasonResponse2 : TJson;
  public
    function A() : integer;
    function B() : bool;
  end;

Mit button1onClick erstelle ich dann die fJasonResponse1 und fJasonResponse2..lösche die aber nirgends.

Naja, es wäre halt minimum ein FormDestroy eventhandler zu erstellen und darin alles freizugeben.