Forms & ARC "spielereien"

[Sir Rufo]

Ich denke jetzt einfach mal laut:

Ein iOS Device ist ja nun mal kein MultiWindow-Anzeiger, sondern es wird immer nur eine View angezeigt.

Daraus ergibt sich, dass jede View als Singleton implementiert werden könnte/angesehen werden kann. Die anzuzeigenden Daten übergibt man der View mit einem ViewModel und lässt die View anzeigen.

Die Views müssen dabei nicht direkt alle beim Start erzeugt werden, aber wenn einmal erzeugt, dann immer wieder verwenden.

Einen Controller gebaut der das ViewModel bekommt, darüber die View auswählt und anzeigt.
Damit kann dann auch die nette Zurück-Funktion implementiert werden

[Mavarik]

Zitat von Sir Rufo:

Ich denke jetzt einfach mal laut:

Ein iOS Device ist ja nun mal kein MultiWindow-Anzeiger, sondern es wird immer nur eine View angezeigt.

Daraus ergibt sich, dass jede View als Singleton implementiert werden könnte/angesehen werden kann. Die anzuzeigenden Daten übergibt man der View mit einem ViewModel und lässt die View anzeigen.

Die Views müssen dabei nicht direkt alle beim Start erzeugt werden, aber wenn einmal erzeugt, dann immer wieder verwenden.

Einen Controller gebaut der das ViewModel bekommt, darüber die View auswählt und anzeigt.
Damit kann dann auch die nette Zurück-Funktion implementiert werden

OK gebe ich Dir 100%ig Recht!

Frei nach dem Motto... Lass die Form's doch rumgammeln... Der nächste App-Kill Event vom iOS wird es richten...

Mavarik

[arnof]

So ich habe es mal getestet und alles geht wie man es gelernt (war mal beim Forumschef in einer Schulung zu iOS ....):

zuerst die zu erzeugende Form:

Code:

type
  TFM_Debug = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FM_Debug: TFM_Debug;

implementation

uses unit1;

{$R *.fmx}

procedure TFM_Debug.FormCreate(Sender: TObject);
begin
 Label1.Text:=self.Name;
 Form1.Memo1.Lines.Add('Create '+Label1.Text);
end;

procedure TFM_Debug.FormDestroy(Sender: TObject);
begin
 Form1.Memo1.Lines.Add('Destroy '+Label1.Text);
end;

Nun das Hauptfenster mit der Debugausgabe:

Code:

uses Unit2;

var FDebug : array of TFM_Debug;

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 FDebug:=nil;
 SetLength(FDebug,Trunc(SpinBox1.Value));
 for I := 0 to length(FDebug)-1 do begin
  FDebug[i]:=TFM_Debug.Create(self);
 end;
 Button1.Enabled:=False;
 Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
 var i:integer;
begin
 for I := 0 to length(FDebug)-1 do begin
  FDebug[i].Close;
  FDebug[i].Release;
 end;
 Memo1.Lines.Add('alle released now Nil');
 FDebug:=nil;
 Button1.Enabled:=True;
 Button2.Enabled:=False;
end;

Im Screenshot seht man das der Destory erst kommt, wenn ich das Array indem ich die Forms ablegt = nil setzte , vorher nicht, da noch eine Refernz darauf besteht

[Sir Rufo]

@arnof

Aber so hast du das bestimmt nicht bei Cheffe gelernt (s. Form1 )

[arnof]

Zitat von Sir Rufo:

@arnof

Aber so hast du das bestimmt nicht bei Cheffe gelernt (s. Form1 )

war ja für könner mit viel bla bla zu ARC, den ich erstmal keine große Beachtung Geschenk hatte, aber wie es so ist, dann fliegt einem der Kram um die Ohren ....

siehe

http://www.delphipraxis.net/174930-i...r-bug-arc.html