Warum macht ein TForm.Close nicht NIL

[Eurowig]

Hi.

Ein TForm.Close lässt eigentlich vermuten, dass das Objekt weg ist. Aber das ist es nicht immer, bzw. nicht sofort.

Delphi-Quellcode:

MyForm := TMyForm.Create(MainForm);
MyForm.Show;

...
...
MyForm.Close;

...
...
if MyForm <> NIL then
begin
  ShowMessage('Bin verwirrt. Warum bist du nicht NIL???')
end;

Damit ich auf NIL prüfen kann musste ich noch das 'Close' ergänzen

Delphi-Quellcode:

MyForm.Close;
FreeAndNil(MyForm);

Meine Frage: Ist das nun gut oder schlecht. Wenn ein Objekt auf NIL gesetzt wird was ist dann mit dem Speicher. Räumt Delphi trotzdem auf oder hab ich ein Speicherleck??
Ein 'TForm.Close' macht einen 'Release'. Bisher dachte ich damit wäre alles aus dem Speicher raus. Jetzt musste ich mit Erstaunen feststellen, dass dem nicht so ist.

[Luckie]

So amüsant wie dein Threadtitel auch ist, er ist nicht sehr hilfreich, wenn es um die kurze Beschreibung deines Problems geht., Bitte ändere ihn in einen aussagekräftigen Titel.

[Daniel]

Ein Glück, dass es nicht so ist.
Die Methode "Close" schließt das Fenster nur, aber es bleibt weiterhin vollständig im Speicher vorhanden und wartet nur darauf, mittels "Show()" wieder angezeigt zu werden. Bei Fenstern gelten leicht andere Spielregeln, hier solltest Du im Allgemeinen die Methode "Release" nehmen, um es aus dem Speicher zu entfernen. Das erlaubt dem Fenster, noch ein paar Aufräumarbeiten zu erledigen.

[edit]
... und dann natürlich das, was Luckie in Bezug auf den Thementitel sagte.
[/edit]

[FAlter]

Hi,

das Objekt wird bei Close nicht unbedingt freigegeben, das hängt davon ab, was du im OnClose zurückgibst (Action = caFree --> Freigabe, ansonsten nicht).

Mit .Free oder FreeAndNil hingegen wird das Formularobjekt immer freigegeben, aber nur bei FreeAndNil wird es auch auf nil gesetzt, ansonsten verweist deine Variable immer noch an die Stelle, an der das Objekt vorher lag.

[edit] Wie wärs denn damit:

Delphi-Quellcode:

procedure ReleaseAndNil(var X: TCustomForm); //inline;
begin
  if Assigned(X) then
  begin
    X.Release;
    X := nil;
  end;
end;

[/edit]

Mfg
FAlter

[Eurowig]

Zitat:

Zitat von Daniel

... hier solltest Du im Allgemeinen die Methode "Release" nehmen, um es aus dem Speicher zu entfernen. Das erlaubt dem Fenster, noch ein paar Aufräumarbeiten zu erledigen.

Ein TForm.Close macht ein 'Release' oder etwa nicht ??

Auszug Forms.pas

Delphi-Quellcode:

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

In der Delpi Hilfe steh:
Mit Release können Sie das Formular aus dem Speicher entfernen.

Dieser Info habe ich auch bisher Glauben gescheckt.

[Sharky]

Zitat:

Zitat von Eurowig

Ein TForm.Close macht ein 'Release' oder etwa nicht ??

Aber doch nur wenn im OnClose caFree als CloseAction angegeben ist.

[Nuclear-Ping]

TCustomForm.OnClose

Zitat:

Zitat von Delphi Hilfe

Das Ereignis OnClose wird beim Schlieen des Formulars ausgelst.

type
TCloseAction = (caNone, caHide, caFree, caMinimize);

TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;

property OnClose: TCloseEvent;

Beschreibung

Mit OnClose knnen Sie spezielle Verarbeitungen durchfhren, wenn das Formular geschlossen wird. Sie knnen in der zugehrigen Ereignisbehandlungsroutine beispielsweise prfen, ob in allen Feldern eines Dateneingabeformulars gltige Eingaben vorgenommen wurden.

Ein Formular wird geschlossen, nachdem die Methode Close aufgerufen oder im Systemmen die Option Schlieen gewhlt wurde.

Der Typ TCloseEvent zeigt auf eine Methode, die fr das Schlieen des Formulars zustndig ist. Der Parameter Action bestimmt, ob das Formular tatschlich geschlossen wird. Er kann die folgenden Werte annehmen:

Wert Bedeutung

caNone Das Formular darf nicht geschlossen werden, daher geschieht nichts.
caHide Das Formular wird nicht geschlossen, sondern lediglich verborgen. Die Anwendung kann nach wie vor auf das Formular zugreifen.
caFree Das Formular wird geschlossen und sein Speicher freigegeben.
caMinimize Das Formular wird nicht geschlossen, sondern als Symbol angezeigt. Bei untergeordneten MDI-Formularen ist dies die Standardeinstellung.

Enthlt bei einem untergeordneten MDI-Formular die Eigenschaft BorderIcons den Wert biMinimize, wird caMinimize als Standardaktion verwendet. Ist diese Eigenschaft nicht gesetzt, erhlt Action den Standardwert caNone, und beim Schlieen des Formulars werden keine speziellen Verarbeitungen durchgefhrt.

Bei einem untergeordneten SDI-Formular wird Action der Standardwert caHide zugewiesen.

Um das Formular in einer Ereignisbehandlungsroutine fr OnClose zu schlieen und freizugeben, setzen Sie Action auf caFree.

Hinweis: Beim Beenden der Anwendung tritt das Ereignis OnClose nur im Hauptformular, aber nicht in den untergeordneten Formularen auf.

(Umlaute sind beim Kopieren übers VNC verloren gegangen ...)

[Eurowig]

Ohhh neee :wall:

Jetzt hab ichs gesehen. Wenn ich im OnClose keine CloseAction definiere (z.B. caFree), macht es ein caHide.

Aber wie nun:

Delphi-Quellcode:

MyForm.Close;
MyForm.Release;

oder

Delphi-Quellcode:

MyForm.Close;
FreeAndNil(MYform)

[Nuclear-Ping]

Nur MyForm.Release für deine Zwecke.

[mkinzler]

Wird die Variable noch genutzt dann FreeAndNil() sonst MyForm.Free;