Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#6

AW: Konstrukt wie on...do für die allgemeine Nutzung?

  Alt 7. Apr 2019, 23:50
Vielleicht kommt TValue.TryAsType<T> dem noch am nächsten. Allerdings braucht man dann für jeden Fall eine entsprechend deklarierte Variable. Das ließe sich aber vielleicht wieder über Inline-Variablen lösen. Bleibt aber immer noch ziemlich unelegant:
Delphi-Quellcode:
  var V: TValue := TValue.From<TComponent>(FindComponent('MyName'));

  var btn: TButton;
  if V.TryAsType<TButton>(btn) then begin
    btn.Click;
  end;

  var edt: TEdit;
  if V.TryAsType<TEdit>(edt) then begin
    edt.Clear;
  end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat