Klassennamen in String => Instanz erstellen

[DevilsCamp]

Gibt es eine Möglichkeit Instanzen von Klassen zu erstellen, deren Namen (also den Klassennamen) ich in irgendeiner Liste (TStringList, z.B.) habe?


Beispiel:
Ich habe folgende Liste:

Code:

TEdit
TEdit
TEdit
TLabel
TLabel
TListBox
TForm2

Diese würde ich dann gerne in meinem Code erstellen.

Also etwa so:

Delphi-Quellcode:

for i := Low(Liste) to High(Liste) do
begin
  irgendeineVariable := Liste[i].Create(Self);
end;

[3_of_8]

So wie ich die RTTI kenne, gibts da bestimmt irgendne Möglichkeit. Aber ich weiß leider nicht genau, welche.

[Lemmy1]

Habs noch nicht selbst ausprobiert aber ein Googlesuche ergab folgendes:

zu erst müssen alle in Frage kommenden Klassen via "RegisterClass" registriert werden. Anschließend kann man die via FindClass wieder auffinden.


Grüße

[markusl]

Hallo zusammen,

hier mal ein Codeschnipsel unter der Annahme das in der Liste die Klassennamen enthalten sind und TControl eine gemeinsame Basisklasse ist.

Delphi-Quellcode:

// Definition der gemeinsamen Klasse
TControlClass = class of TControl;
...

procedure TForm1.xyz;
var
  ctrl : TControl;
begin
  for i := Low(Liste) to High(Liste) do 
  begin 
    ctrl := TControlClass(GetClass(Liste[i])).Create(self);
    with ctrl do
    begin
      // gemeinsame Aktionen etc.
      // ...
    end; 
  end
end;

...

initialization
   // einmaliges Registrieren der potentiellen Klassen
   RegisterClasses([TEdit,TListBox,TLabel]);

HTH

Markus