Fenster zur Laufzeit in einer Klasse - Fehler bei FREE

[TERWI]

Moin zusammen !
Ich bastle grade an meinem Universal-Logger herum. Wenn er fertig (und vor allem fehlerfrei) ist stelle ich den gerne hier ein.

Dieser besteht aus einer Klasse (keine Form !), beeinhaltet aber u.a. eine Form, die ich ggf. gleich beim Erzeugen des Loggers (im constructor) selbst mit erstelle oder bei Bedarf zur Laufzeit erzeuge und auch wieder freigebe - oder - bzw. prüfe ob beim Beenden der Logger-Class (im dstructor) das Fenster noch vorhanden ist.

Starten des Loggers mit Fenster oder erzeugen des Fensters zur Laufzeit, bzw. (mehrmals) wieder freigeben/zerstören (und auch wieder erzeugen) ist kein Problem ! Keinerlei Fehlermeldungen.

Aber:
Ist ein Fenster beim beenden des Loggers erzeugt/offen (egal, ob sichtbar oder nicht), bekomme ich folgende Fehlermeldung:
Access violation at address 00000000. Read of address 00000000
Ist kein Fenster (mehr) vorhanden, gibt's auch kein Gemecker.
Warum ?

Man könnte vermuten, FLOGWIN (so heisst die var) ist nicht mehr zugewiesen.
Prüfe ich im destructor mit if Assigned(FLOGWIN) then FLOGWIN.Free; kommt der gleiche Fehler.
Lasse ich FLOGWIN.Free einfach weg, scheint alles 'gut'. Frgat sich nur, was da im Speicher hängenbleibt ?!

Hat da mal jemand eine Erklärung für mich ?

Ich erzeuge u.a. zur Laufzeit auch noch eine TStringList und ein TFileStream.
Diese beiden 'beschweren' sich in keiner Weise, wenn ich sie mit Free im destructor des Loggers freigebe.

[Bernhard Geyer]

Ich tipp mal darauf das von Windows dein Fenster "gefreet" wird und du das einfach nicht mit bekommst.
Du solltest die entweder ins OnDestroy-Event hängen oder gleich als Notifier registrieren.

[TERWI]

Hmm, war ja ne Idee wert - hab ich den Logger mal sich selbst loggen lassen (wo es geht).
Hier der LOG von:
- 2x mal Fenster erzeugen/freigeben
- 1x Fenster erzeugen
- Logger beenden

Code:

destructor TLOG.Destroy;
begin
  FOnDestroy := true;     // das scheint absolut nicht zu interessieren im OnDesrtoy des Fensters
  SetLogWin(false);       // ..... hier schon
  if Assigned(FLOGWIN) then FLOGWIN.Free;        // FEHLER, wenn nicht ausmarkiert !
  SetLogFile(false);      
  ...
  inherited destroy;
end;

Das LOG:

Code:

[18:31:25:640]  [LOGGER - MAIN]: .... Logger created
[18:31:29:171]  [LOGGER - SetLogWin = true]: create
[18:31:29:187]  [LOG_WIN - OnCreate]: ....
[18:31:38:671]  [LOGGER - SetLogWin = false]: Destroy manually
[18:31:38:671]  [LOG_WIN - OnDestroy]: Destroy manually
[18:31:41:859]  [LOGGER - SetLogWin = true]: create
[18:31:41:859]  [LOG_WIN - OnCreate]: ....
[18:31:45:875]  [LOGGER - SetLogWin = false]: Destroy manually
[18:31:45:875]  [LOG_WIN - OnDestroy]: Destroy manually
[18:31:51:859]  [LOGGER - SetLogWin = true]: create
[18:31:51:859]  [LOG_WIN - OnCreate]: ....
[18:31:54:765]  [LOG_WIN - OnDestroy]: Destroy manually
[18:31:54:765]  [LOGGER - SetLogWin = false]: Destroy in destructor

Das letzte 'Destroy manually' kommt aus dem OnDestroy des Fensters - und zwar vor dem Aufruf der eigentlichen Routine 'SetLogWin(false)' !

Für mich macht das den Eindruck, als wenn der Destructor der Loggers selbst das Fenster schon gleich beim Aufruf zumacht - wenn es denn noch da ist.
FLOGWIN ist dann aber nicht NIL.

.... sehr eigenartig.

[Sir Rufo]

Wenn du FLOGWIN nicht auf nil setzt, dann wird das auch nicht den Wert annehmen. Es gibt da keine Automatik.

Helfen kann FreeAndNil

[TERWI]

.... ist schon klar, Sir Rufo.
Das mache ich ja auch in der Routine SetLogWin(false), weil ich im Programm auf Assigned zum Neuerstellen mit SetLogWin(true) abfrage.

Nur wieso kommt im OnDestroy der Logger-Klasse ausgerechnet die Freigabe des Fenster VOR dem eigentlichen Aufruf zum Entfernen ????
Beim Freigeben der Stringliste und des TFileStrams klappt das ja auch ....

[Uwe Raabe]

Zeig doch mal, wie du das Form erzeugst.