Prüfen und Casten auf einen Rutsch

[uligerhardt]

Zitat von Sir Rufo:

Ein ClassHelper erweitert eine Klasse um Methoden, die dann einfach benutzt werden können.
In diesem Beispiel also so

Delphi-Quellcode:

if Sender.TryCast<TEdit>( Edit ) then
  Edit.Text := 'tut';

Delphi-Quellcode:

if TryCast<TEdit>(Sender, Edit) then
  Edit.Text := 'tut';

wäre aber auch OK und käme ohne class helper aus. Leider kann Delphi (noch) keine globalen generischen Routinen. (Warum eigentlich?)