Hallo,

ich vermute, dass zwischen folgenden beiden Sprachkonstrukten kein Unterschied besteht, bin mir aber nicht sicher:

with TWinControl (AOwner) do und

with AOwner as TWinControl do Gibt es Fälle, wo man nur das eine oder nur das andere verwenden darf?

Das erste ist ein harter Cast, das 2. ein softer.
Der Softcast überprüft, ob das Objekt kompatibel ist und wirft eine entsprechende Exception, wenn das nicht der Fall ist.

Ah, danke - wieder etwas dazugelernt

Markus hat ja nun die Interna genannt.

- also der harte Cast ist schneller (fällt aber nur auf, wenn sehr schnell sehr oft geprüft werden muß), da es keine Prüfung gibt und das Objekt in der Variable einfach so genommen wird, als wäre die gewünschte Klasse drinnen.
(wenn vorher schonmal mit AS oder IS geprüft wurde, dann kann man dieses z.B. nutzen oder wenn man sich durch andere Maßnahmen ganz sicher ist, dann ebenfalls)

will man wirklich sooo programmieren?
Warum verwendest du keine Interfaces?

@ MSchmidt
????

Da bin ich aber auch gespannt. Wieso sollte man sich mit Interfaces beschäftigen, wenn man nur mal eben mit dem Sender eines Events oder in diesem Fall dem Owner eines Objects hantieren will.

Sherlock

ich dachte mir, wenn Sender ein Interface implementiert kann man ohne Prüfung dieses verwenden, statt typecasting.
oder?

Wenn man ein "Objekt" an eine Interface-Variable oder einen -Parameter übergibt,
dann führt Delphi automatisch eine Konvertierung durch, aber nur wenn das Objekt, genauer der Type der Objektvariable (die Objektvariable, bzw. der Objekt-Type bei .Create) dieses Interface unterstützt, sonst mekert schon der Compiler ... und wenn das Objekt dieses dann zur Laufzeit dann dennoch nicht kennt, dann knallt es eben da.

Das AS ist doch quasi auch nur eine delphiinterne Umleitung zu Supports, inkl. einer Typenprüfung.

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

markieren

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:

markieren

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.