Forms & ARC "spielereien"

[Mavarik]

Hallo Zusammen!

Was erwartet man von ARC?

App mit 2 Forms... Main & Form1

Beispiel 1

Delphi-Quellcode:

Procedure TMain.Button1Click(Sender: TObject);
Var
  F : TForm1;
begin
  F := TForm1.Create(NIL);
  F.Show
end;

Was erwartet man?
Das Form wird angezeigt und nachdem man "out of Scope" ist, wird das Fenster wieder geschlossen und die
OnDestroy aufgerufen, oder?

Nöö eben nicht. F.RefCount ist 2 daher wird das Fenster weder geschlossen noch die Destroy aufgerufen.

Beispiel 2

Delphi-Quellcode:

Procedure TMain.Button1Click(Sender: TObject);
Var
  F : TForm1;
begin
  F := TForm1.Create(NIL);
  F.Show
  F := NIL;
end;

Bringt logischerweise auch nix.

Noch besser finde ich allerdings folgendes:

Beispiel 3

Delphi-Quellcode:

procedure TMain.Button1Click(Sender: TObject);
var
  [WEAK] F : TForm1;
begin
  F := TForm1.Create(NIL);
  F.Show;
end;

Hierbei ist F.RefCount=1 nachdem "out of scope" sollte jetzt F.RefCount endlich mal 0 sein, oder?

Naja... Auf jeden Fall wird das Fenster dargestellt und funktiniert "ganz prima"

Also wie zum Geier kann ich das Fenster schliessen und den onDestroy aufrufen?

Wie wäre es mit... Moment muss die IDE neu starten (nicht genug Arbeitsspeicher) da war wohl ein Memory Leak!
Weiter geht's...

Delphi-Quellcode:

Procedure TForm1.FormClose(Sender: TObject; var Action : TCloseAAction);
begin
  Action := TCloseAction.caFree; // Let's do the MDI Style
end;

Na endlich die OnDestroy wird aufgerufen... Aber halt...

Debugger Exception-Klasse SIGSEGV(11) ausgelöst. (Zeile 3569 in FMX.Platform.iOS)
> Form.MouseLeave blöde nur das Form jetzt schon NIL ist...

OK Dann anders!

Beispiel 4

Delphi-Quellcode:

procedure TMain.Button1Click(Sender: TObject);
var
  F : TForm1;
begin
  F := TForm1.Create(NIL);
  F.Showmodal; 
  F.Free;
end;

Mit einem Button ModalResult := mrOK setzen...

UND? OK Fenster ist weg...

Unnötig zu erwähnen, dass die OnDestroy wieder nicht aufgerufen wird!

Noch jemand ne Idee?


Mavarik

[Crocotronic]

Was hälst du von

Delphi-Quellcode:

 Form2:= TForm2.Create(nil);
 try
  Form2.ShowModal;
 finally
  Form2.Destroy;
  Form2:= nil;
 end;

?

[Mavarik]

Zitat von Crocotronic:

Was hälst du von

Delphi-Quellcode:

 Form2:= TForm2.Create(nil);
 try
  Form2.ShowModal;
 finally
  Form2.Destroy;
  Form2:= nil;
 end;

?

OK mal abgesehen davon, dass man Destroy nicht aufrufen soll, funktioniert es mit einem Testprogramm zwar, aber ich musste leider feststellen, dass
ShowModal in IOS nicht funktioniert, da dann einige Sachen nicht animiert werden!

Mavarik

[jbg]

Der "richtige" Weg ist Form.DisposeOf aufzurufen (welches aber nicht in älteren Delphi Versionen vorhanden ist). Die Funktion hat Embarcadero genau für diesen Fall eingebaut, nachdem sie das "Free" zweckentfremdet haben. Aber "DisposeOf sollte man nur in Sonderfällen aufrufen". Leider sind aber die alle (GUI) Controls Sonderfälle, da irgendwo im inneren der FMX eine Strong-Reference auf sie existiert.
So kann man ein Konzept auch ad absurdum führen.

[Der schöne Günther]

Ich kenne mich mit Delphi-Projekten unter iOS nicht aus, aber das Application-Objekt (falls es das unter iOS auch gibt), merkt sich doch alle seine Formen. Bislang doch nur ein Sonderfall bei Formen, oder?

[jbg]

Zitat von Der schöne Günther:

Bislang doch nur ein Sonderfall bei Formen, oder?

Kann schon sein. Die FMX wurde ohne ARC (im Kopf) entwickelt und erst nachträglich ARC-kompatibel gefrickelt. Aber eigentlich geht mir die FMX sonstwo vorbei, so schlecht wie die geschrieben ist (und das bezieht sich nicht nur auf die Performance).

[Mavarik]

Zitat von jbg:

Der "richtige" Weg ist Form.DisposeOf aufzurufen...

Jo das gibt an ganz neuen Stellen die Exceptions...

[Elfriede]

Wir sollte mal schauen, nach welchen Mustern das FMX-Framework sich verhält. Den kompletten Total-Ausfall, den Du da beschreibst, konnte ich so nicht nachvollziehen. Anbei der Lebens-Zyklus eines Child-Forms, das ich über eine Schaltfläche auf dem Haupt-Form aufgerufen habe:



Zumindest im Simulator - diese Einschränkung muss ich noch machen. Vielleicht kann ich meinem Mitbewohner nachher wieder sein iPhone klauen, dann kann ich es auch dort versuchen.


Elli

[arnof]

Hallo,

wenn Du dir mal den Projektquelltext anschaust, dann machen die die Forms so:


Application.CreateForm(TFormxyz, Formxyz);

Dann wird die Form wahrschein lich beim Destory des Applicationsobject kommen ....

Wenn Du natürlich 100 Forms hast, dann wird dies wahrscheinlich nicht gehen ....

Ich hatte mich mit dem Arc auch einwenig beschäftigt und gesehen, das der RefCount bei manchen Sachen nicht mit 1 erstellt wird sondern mit einer großen Zahl.

Also mal testen formxyz.Refcount ausgeben lassen!

[Stevie]

Zitat von arnof:

Hallo,

wenn Du dir mal den Projektquelltext anschaust, dann machen die die Forms so:


Application.CreateForm(TFormxyz, Formxyz);

Dann wird die Form wahrschein lich beim Destory des Applicationsobject kommen ....

Das stimmt nur für Forms, die man im Projekt als auto-create angegeben hat - Frank erzeugt das Form selber.

Generell wird ARC wohl ein kleines Problemchen mit so fire and forget Aktionen haben. Im ersten Beispiel müsste es schon knallen (bzw das Form sofort wieder geschlossen und freigegeben werden), wenn die lokale Variable die einzige Referenz wäre. Das Form wird angezeigt und danach die Routine verlassen (Show ist nicht blockierend). Das heißt also, irgendwo wird es eine Referenz auf das Form geben. Ich bin der Meinung, Beispiel 3 sollte das sein, was funktionieren sollte - die AV in der FMX.Platform.iOS sollte abgefangen werden (bzw nil safe implementiert werden).