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.

[himitsu]

Zitat von DeddyH:

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

Genauer genommen muß TControl über .Text verfügen (tut es ... versteckt als protected Caption), denn nur das kennt der Compiler, nach dem Cast auf TControlClass.
Aber ob der jeweilige TControl-Nachfahre über Text/Caption SetWindowText befüllt werden kann, ist ein anderes Problem.

[Aphton]

Zitat von DeddyH:

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

Daher auch das ~

Man müsste dann in der Hierarchie ein bisschen weiter runter, iwann einmal wirds gehen.

[Union]

Du setzt doch XE7 ein? Warum verwendest Du dann nicht JSON zur Serialisierung?

[Sploing]

Moin,
vielen Dank für eure Zahlreichen Antworten, super!!!
Es geht darum, dass ich Formulare erstelle, bei denen die Daten sowohl in einem Stringgrid wie auch mittels TEdits bearbeitet werden können. Sobald ein Element bearbeitet wird, "synchronisiere" ich die Änderung zum "passenden" "verknüpften" Element. Siehe Bild im Anghang. Dies geschieht natürlich nicht aufwändig "einzeln", sondern über eine Transfertabelle.

Nun kam die Anforderung hinzu, auch andere Elemente (Checkboxen usw.) verweden zu können. Daher hatte ich überlegt, auch diese Elemente direkt beim Ändern einer StringGrid Zelle upzudaten, also in meiner Transfertabelle die "Klasse" des Elements mitzuspeichern, und dann "einzusetzen". Inzwischen bin bin ich aber wieder davon ab, und verwende "unsichtbare" TEdits zum Transferieren der Daten z.B. zu einer Checkbox. Dadurch bin ich flexibel und kann beliebige Elemente unabhängig von meiner Basisfunktionalität zur Synchronisation zwischen Stringgrid und Elementen verweden.
Ojeoje, hoffentlich war das verständlich?

Das "String2Class" ist trotzdem interessant, das hätte ich schon oft brauchen können

Zitat von 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.

Dachte ich mir schon

Zitat von himitsu:

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

Guter Tip, danke!

[QUOTE=Aphton;1293101]

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 (...)

Sehr interessanter Ansatz, das probiere ich auf jeden Fall aus.

Zitat von himitsu:

Zitat von DeddyH:

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

Genauer genommen muß TControl über .Text verfügen (tut es ... versteckt als protected Caption), denn nur das kennt der Compiler, nach dem Cast auf TControlClass.
Aber ob der jeweilige TControl-Nachfahre über Text/Caption SetWindowText befüllt werden kann, ist ein anderes Problem.

Aus dem Grund mache ich es jetzt doch "aussenrum" über die Transfer TEdits. Später kommen noch Listen mit Checkboxen, Fropdowns, und, und, und. Und deren Daten müssen sowieso wieder als String in die DB.