Variable as Klasse - Wann verwenden

[Stevie]

Sowas würde gehen, auch wenn in Sender ein Edit übergeben wurde:

Delphi-Quellcode:

procedure Foo(Sender: TObject);
begin
  TButton(Sender).Caption := 'Hello';
end;

weil sowohl Button als auch TEdit über die Eigenschaft Caption verfügen aber die Typen eigentlich nicht zuweisungskompatibel sind.

Bei (Sender as TButton).Caption := 'Hello'; wird zur Laufzeit eine EInvalidCast Exception geraised.

Willst du ganz sicher gehen, müsstest du sowas machen:

Delphi-Quellcode:

if Sender is TButton then
  TButton(Sender).Caption := 'Hello';

@Himi: Supports ist für Interfaces und hat mit dem as Operator eigtl nix zu tun, du kannst as nichtmal mit einem Interface benutzen, allerhöchstens eine Interface Variable wieder auf eine Klasse umcasten geht mit Delphi 2010.