String2Class

[Sploing]

Hallo liebe Experten,

und schon wieder komme ich bei einer Sache nicht weiter. Ist es möglich eine Klasse aus einem String zu erzeugen?

Was geht ist:
(Form1.FindComponent('Edit1') AS TEdit).Text := 'blubb'
Was ich gerne machen würde wäre:
(Form1.FindComponent('Edit1') AS Str2Class('TEdit')).Text := 'blubb'
Ist so eine Str2Class Funktion theoretisch denkbar oder kommt der Compiler damit nicht zurecht weil er nicht erkennt zu welcher Klasse das Element gehört?

Würde mich über Tips freuen

[himitsu]

Nein.


Man kann über die RTTI die Klasse suchen, aber für einen Cast bringt das nichts, da der Code erst zur Laufzeit ausgewertet wird, abr der "Compiler" das für deinen Cast sofort braucht.

Oder du gehst direkt über die RTTI, suchst nach dem Property "Text" und weist diesem den Wert zu.




Für IS gäbe es Form1.FindComponent('Edit1').ClassIs('TEdit') aka Form1.FindComponent('Edit1').ClassName = 'TEdit' .

[Der schöne Günther]

Vielleicht hast du ein ganz konkretes Beispiel was du eigentlich versuchst, vielleicht gibt es da ja einen besseren Weg als zur Laufzeit auf Formularen zu wühlen...

[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 entweder mit Generics oder overload arbeitest. Wobei er mit overload wahrscheinlich das Compilen mit "Doppeldeutiger Aufruf" oder sowas verweigern würde. Müsste man testen.

[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'

[DeddyH]

Das würde nur dann funktionieren, wenn jedes TControl über eine Text-Eigenschaft verfügen würde.