Try-finally und modalresult

[idefix2]

Ich bin mir nicht ganz sicher, wie ich hier richtig vorgehe, bzw. ob ich das so machen kann:

Delphi-Quellcode:

type 

TMyform=class(Tform) 
  ...
private
  sl: TStringList
end;

implementation

procedure Tmyform.dosomething;
begin
  sl:=TStringList.create;
  try
    ...
    if bedingung1 then  
      if bedingung 2 then ModalResult:=mrOK
                     else Modalresult:=mrAbort;
    ... 
  finally
    sl.free;
  end (* try *);
end;

Kann ich davon ausgehen, dass bei der Abarbeitung der finally-Klausel meine Form noch existiert und das sl.free sicher durchgeführt wird, oder riskiere ich unter Umständen, dass ich mir mit der Zuweisung an Modalresult quasi den Ast abgesägt habe, auf dem ich sitze?

[DeddyH]

Mir persönlich ist kein Fall bekannt, in dem ein finally nicht ausgeführt wird, wenn der Block erst einmal betreten wurde. Zur Not kannst Du das aber auch im Debugger überprüfen.

[idefix2]

Habe jetzt eben bemerkt, die Frage ist ein Unsinn.
Durch die Zuweisung an modalresult wird ja das Formular nur geschlossen, freigegeben wird es ja wenn überhaupt erst später.
Meine Sorge war nicht, ob das finally durchgeführt wird, davon kann man, denke ich, mit Sicherheit ausgehen, sondern ob es das Formular dann in allen Fällen noch gibt.

[himitsu]

Die Methode läuft definitiv noch komplett durch.

ModalResult und Close haben erst am Ende (oben, in der Messagebehandlung) oder beim nächsten Application.ProcessMessages eine Auswirkung, auf das Schließen.

[Dejan Vu]

Beim Setzen von 'ModalResult' passiert erst einmal gar nichts. Außer, das ModalResult gesetzt wird. Erst wenn die Message, aufgrund dessen deine Methode aufgerufen wurde, abgearbeitet ist, wird ModalResult ausgewertet.

Steht auch so im VCL-Code.

[idefix2]

Alles klar.
Abgesehen davon wäre es egal. Sogar wenn das Close gleich durchgeführt würde, was nicht der Fall ist, wäre die Datenstruktur der Form immer noch da, also würde auch dann im finally nichts passieren. Dem sl.free ist es ja völlig egal, ob die Form gerade sichtbar oder unsichtbar ist.

[Rollo62]

Bei try finally kann aber die Routine bei Exceptions überall zum finally block herausspringen.

Dann könnte ModalResult undefiniert sein (oder zumindest nicht so wie du es gerne hättest).
Also ich definiere alles Wichtige schonmal bevor try finally, und nur wenn er bis zum Result := OK kommt
ist alles richtig durchgelaufen.

Ansonsten wäre das dann wie gewünscht.

Rollo

[Perlsau]

Zitat aus der Online-Hilfe: Der Standardwert von ModalResult ist mrNone. Wenn Sie der Eigenschaft einen anderen Wert zuweisen, wird das Formular geschlossen, und der Wert wird zum Rückgabewert des ShowModal-Funktionsaufrufs, mit dem das Formular angezeigt wird.

[mm1256]

Ich habe mir angewöhnt, alles was im Formular zum Schließen beitragen kann (hier also die Stringlist) im "OnCreate" zu erzeugen und im "OnClose" wieder frei zu geben. In diesem Fall also würde sich die Frage dann gar nicht stellen und man müsste nicht darüber nachdenken, ob man es richtig macht.

[Sir Rufo]

Was man im

Delphi-Quellcode:

OnCreate

erzeugt und über die Lifetime der Form-Instanz benötigt, sollte man tunlichst im

Delphi-Quellcode:

OnDestroy

aufräumen.

Alle anderen Zeitpunkte/Events funktionieren nur unter bestimmten Bedingungen.

[himitsu]

OnCreate -> OnDestroy
OnShow -> OnClose

Delphi-Quellcode:

F := TMyForm.Create(x);
try

  F.Show;
  F.Close;
  F.Show;  // peng
  ... 

  F.ShowModal;
  F.ShowModal;  // peng
  ...

finally
  F.Free;
end;

[DeddyH]

On -> Off (SCNR^^)

[mm1256]

Zitat:

Zitat von Sir Rufo (Beitrag 1306291)

Was man im

Delphi-Quellcode:

OnCreate

erzeugt und über die Lifetime der Form-Instanz benötigt, sollte man tunlichst im

Delphi-Quellcode:

OnDestroy

aufräumen.

Das leuchtet mir ein. Kann es zukünftig so machen.

Zitat:

Zitat von Sir Rufo (Beitrag 1306291)

Alle anderen Zeitpunkte/Events funktionieren nur unter bestimmten Bedingungen.

Warum (unter welchen Bedingungen) würde denn "OnClose" nicht aufgerufen werden? Es geht hier ja um "modalresult" also modale Fenster. Hierzu verwende ich i.d.R. sowas:

Delphi-Quellcode:

unit Foo

interface

function Foo_ShowModal: integer;

implementation

function Foo_ShowModal: integer;
begin
  with TFoo.Create(Application) do
  try
    Result := ShowModal;
  finally
    Release;
  end;
end;

[DeddyH]

Die Standardaktion im OnClose ist nicht freigeben (caFree), sondern verstecken (caHide). Das bedeutet, dass das Fenster auch nach einem Close weiterlebt, nur eben nicht sichtbar. Wenn man da also etwas freigibt, was man im OnCreate erzeugt hat, fängt man sich einen wilden Zeiger ein, was bei künftigen Zugriffen darauf dann in einer AV endet.

[BUG]

Zitat:

Zitat von mm1256 (Beitrag 1306332)

Es geht hier ja um "modalresult" also modale Fenster.

Es kann ja sein, dass man das Formular nicht erzeugt und gleich wieder zerstört, sondern nur eine Instanz hat und diese wiederverwendet. Ein Beispiel wäre ein Formular als Singleton.

[Namenloser]

Finally wird immer ausgeführt. Sogar das hier funktioniert:

Delphi-Quellcode:

try
  exit;
finally
  ShowMessage('Foobar');
end;