Object anhand des Classennamens erstellen

[himitsu]

OK, den Spämmer ignorieren wir einfach mal.

Ja, über die RTTI kannst du eine Klasse suchen.
Alternativ gibt es auch RegisterClass und FindClass.



Jene werden auch von der VCL und FMX benutzt.
Beim Create einer TForm, werden über die published Fields in der Form-Klasse die enthaltenen Komponenten-Typen registriert,
und während des Ladens sucht dann der DFM-Reader die namentlich in der DFM stehenden Klassen in dieser Liste.
PS: Drum knallt es auch, wenn man eine Komponente auf der Form hat, aber keine publisched Variable dieses Types in der Form existiert. (und dieser Typ vorher auch nicht registriert war)

Hat man Klassen in Sub-Typen, welche keine "Variable" in der Form-Klasse besitzen, dann muß man diese Klassen manuel registrieren.
z.B. bei einer Liste/Collection als Property in einer Komponente oder bei einer Komponente die aus weiteren Komponenten bestecht.

Delphi-Quellcode:

{ Class registration routines }

procedure RegisterClass(AClass: TPersistentClass);
procedure RegisterClasses(const AClasses: array of TPersistentClass);
procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);
procedure UnRegisterClass(AClass: TPersistentClass);
procedure UnRegisterClasses(const AClasses: array of TPersistentClass);
procedure UnRegisterModuleClasses(Module: HMODULE);
function FindClass(const ClassName: string): TPersistentClass;
function GetClass(const AClassName: string): TPersistentClass;
procedure StartClassGroup(AClass: TPersistentClass);
procedure GroupDescendentsWith(AClass, AClassGroup: TPersistentClass);
function ActivateClassGroup(AClass: TPersistentClass): TPersistentClass;
function ActiveClassGroup: TPersistentClass;
function ClassGroupOf(AClass: TPersistentClass): TPersistentClass; overload;
function ClassGroupOf(Instance: TPersistent): TPersistentClass; overload;

procedure ReportClassGroups(Report: TStrings);