TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[Uwe Raabe]

Und was funktioniert an GetClass('T' + Tabellenname) jetzt nicht?

[fisipjm]

Zitat von Uwe Raabe:

Und was funktioniert an GetClass('T' + Tabellenname) jetzt nicht?

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke

[Uwe Raabe]

Zitat von fisipjm:

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;

[BerndS]

gelöscht

[uligerhardt]

Zitat von Uwe Raabe:

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;

Als ein Sicherheitsfanatiker würde ich die Annahme prüfen:

Delphi-Quellcode:

  if Assigned(PersistentClass) then
  begin
    Assert(PersistentClass.InheritsFrom(TMainForm));
    MainFormClass := TMainFormClass(PersistentClass);
  end;

[fisipjm]

Zitat von Uwe Raabe:

Zitat von fisipjm:

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;

Tut genau was es soll. Vielen dank!
Hab mich in den letzten Tagen mehr mit Klassen und insbesondere auch RTTI auseinander gesetzt. Wilkommen in einer neuen Abstraktionsebene Mein Kopf raucht, aber auf eine gute weise