FormularArray den richtigen Create aufrufen! Wie?

[Sir Rufo]

Zitat von himitsu:

Ist das ein Sonderfall bei den TCustomForms
oder werden alle TWinControl-Instanzen bei Sowas freigegeben?


OK, wenn das ARC mir nun Objekte unterm Arsch wegklaut, warum dann nicht auch die VCL.

Das ist gefühlt schon immer so gewesen bei TControl
Steht auch so in der Doku zu TControl.Parent

[himitsu]

Zitat von Sir Rufo:

Das ist gefühlt schon immer so gewesen bei TControl

Hatte meine Antwort nochmal überdacht und etwas erweitert.

Innerhalb der VCL gibt es da ja keine Probleme, da sich dort die Referenzen bei Parent, Owner, Controls und Components selber aufräumen.

Hmmm, dann dürfte das ja nun im ARC "richtig" funktionieren?
Solange noch eine externe Referenz existiert, düfte dann das Objekt eigentlich nicht mehr entsorgt werden.

Bei deinem Code würde LForm am Ende ja eine ungültige Referenz enthalten.
(OK, nicht sofort, da Release ja verzögert löscht)

[Sir Rufo]

Ähm, das war doch nur kurz und knapp als Beispiel.

Diesen Code wirst du bei mir aktiv niemals finden, denn wer sägt sich schon den Ast ab auf den er gerade geklettert ist

BTW ein try..finally fehlt auch in dem Code ...

[Mavarik]

OK Nochmal!

Eine Frage aus der Kategorie noch keinen Kaffee, wo liegt mein Denkfehler?

Delphi-Quellcode:

type
    TVater = Class(TForm)
      public
        Procedure SetFoo(A:TComponent);Virtual,Abstract;
    end;

    TMyForm = class(TVater)
      public
        Procedure SetFoo(A:TComponent);
   end;

   FC : Class of TForm;

var
  AktForm : TVater;

begin
  FC := GetForm('FormName'); // holt die Registriere Formclass TMyForm... (Source verkürzt)
  AktForm := TVater(FC.Create(Self)); // Blödes Typecast?!

  AktForm.SetFoo(Self); // <- Abstracter Fehler
end;

Stehe gerade auf dem schlauch..

Mavarik

[Sir Rufo]

Du hast override vergessen

BTW
TFormClass ist definiert als class of TForm
Was du da machst mit dem FC ist nicht falsch, aber überflüssig

Nachtrag
So macht es Sinn

Delphi-Quellcode:

type
    TVater = Class( TForm )
      public
        Procedure SetFoo( A : TComponent ); Virtual; Abstract;
    end;

   TVaterClass = Class of TVater;

    TMyForm = class( TVater )
      public
        Procedure SetFoo( A : TComponent ); override;
   end;

var
  AktForm : TVater;
  FC : TFormClass;
begin
  FC := GetForm('FormName'); // holt die Registriere Formclass TMyForm... (Source verkürzt)

  if FC.InheritsFrom( TVater ) then
  begin
    AktForm := TVaterClass( FC ).Create( Self ); // Kein Typecast mehr!
    AktForm.SetFoo(Self); // <- Abstracter Fehler ist weg
  end;
end;

[Mavarik]

Zitat von Sir Rufo:

Du hast override vergessen

OK ich schreibe 100 mal... Nicht programmieren vor dem 1. Kaffee!

Zitat von Sir Rufo:

BTW
TFormClass ist definiert als class of TForm
Was du da machst mit dem FC ist nicht falsch, aber überflüssig

TFormClass ist VCL Only... nicht definiert in FMX!

Mavarik

[Sir Rufo]

Zitat von Mavarik:

Zitat von Sir Rufo:

Du hast override vergessen

OK ich schreibe 100 mal... Nicht programmieren vor dem 1. Kaffee!

Warum benutzt du denn nicht CodeCompletion ?
Das geht auch nach dem 10. Bier noch

Zitat von Mavarik:

Zitat von Sir Rufo:

BTW
TFormClass ist definiert als class of TForm
Was du da machst mit dem FC ist nicht falsch, aber überflüssig

TFormClass ist VCL Only... nicht definiert in FMX!

Die spinnen doch, die Römer ...

[Mavarik]

Zitat von Sir Rufo:

Delphi-Quellcode:

type
    TVater = Class( TForm )
      public
        Procedure SetFoo( A : TComponent ); Virtual; Abstract;
    end;

   TVaterClass = Class of TVater;

    TMyForm = class( TVater )
      public
        Procedure SetFoo( A : TComponent ); override;
   end;

var
  AktForm : TVater;
  FC : TFormClass;
begin
  FC := GetForm('FormName'); // holt die Registriere Formclass TMyForm... (Source verkürzt)

  if FC.InheritsFrom( TVater ) then
  begin
    AktForm := TVaterClass( FC ).Create( Self ); // Kein Typecast mehr!
    AktForm.SetFoo(Self); // <- Abstracter Fehler ist weg
  end;
end;

Kann ich auch noch testen, ob AktForm.SetFoo(Self); in TMyForm überladen wurde?
Nach dem Motto AktForm hasImplemented(SetFoo), oder so?

[himitsu]

Grundsätzlich meckert der Compilier, wenn man eine Instanz 'ner Klasse erstellen will, wo noch abstrakte Methoden drin sind.
Demnach könnte man sagen, daß es garnicht nötig ist, das zu prüfen.

Aber schau mal bei TStream in den Quellcode.
Dort gibt es zwei Varianten für Seek (einmal 32 und nochmal für 64 Bit).

Dort drin wird geschaut, ob die andere Variante überladen wurde, falls sie selber nicht überladen sind und rufen dann entweder das Andere auf, oder werfen eine Exception.