String2Class

[Aphton]

Zitat von nuclearping:

Ich kann mir vorstellen, dass es möglicherweise in die Richtung funktionieren würde, wenn du eine Liste von "möglichen" Klassen-Strings definierst und (...)

Konkreter~ (sry für etwaige Fehler, lange kein Delphi Code mehr geschrieben..)

Delphi-Quellcode:

type
  TControlClass = class of TControl;

var
  ControlStrDict: TDictionary<String, TControlClass>;

// füllen mit bekannten Klassen
  ControlStrDict := TDictionary<String, TControlClass>.Create();
  ControlStrDict.add("TEdit", TEdit);
  ControlStrDict.add("TButton", TButton);
  // usw. usf. ...

Delphi-Quellcode:

var
  clazz: TControlClass;

  if (ControlStrDict.TryGetValue("TEdit", clazz) = True) then
    (Form1.FindComponent('Edit1') AS clazz).Text := 'blubb'