Variable as Klasse - Wann verwenden

[idefix2]

@ MSchmidt
????

[Sherlock]

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

[Mschmidt]

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

[himitsu]

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.

[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.

[himitsu]

Zitat von Mschmidt:

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

Zitat von Stevie:

@Himi: Supports ist für Interfaces und hat mit dem as Operator eigtl nix zu tun, du kannst as nichtmal mit einem Interface benutzen,

Nee, Interface in Objekt geht (eigentlich) nicht, aber andersrum geht.

Delphi-Quellcode:

var Obj: TMyObj;
  Intf: IMyIntf;
  Intf2: IInterface;

Intf := Obj as IMyIntf;
// oder nur, da das Interface vom Ziel (der Intf-Variable) genommen wird
Intf := Obj;

Intf2 := Obj as IMyIntf;
// hier würde dagegen in Intf2 nur IInterface von Obj drinstecken
Intf2 := Obj;

Zitat von Stevie:

allerhöchstens eine Interface Variable wieder auf eine Klasse umcasten geht mit Delphi 2010.

werd ich dann mal testen, aber vom Wesen der Interfaces her, gibt es eigentlich kein direktes Zurück.
(hab mir bisher damit beholfen, daß ich im Interface eine Methode implementiert hab, ala GibMitBitteDeinInneresObjekt)

[mkinzler]

Man kann aber per Interface ermitteln, ob das Objekt bestimmte Methoden unterstützt

[Stevie]

Zitat von himitsu:

werd ich dann mal testen, aber vom Wesen der Interfaces her, gibt es eigentlich kein direktes Zurück.
(hab mir bisher damit beholfen, daß ich im Interface eine Methode implementiert hab, ala GibMitBitteDeinInneresObjekt)

Ging vor Delphi 2010 auch mit nem Hack (hat Hallvard Vassbotn mal vor Urzeiten gebastelt und ist auch in der JCL enthalten).
Seit Delphi 2010 aber wie gesagt offiziell vom Compiler unterstützt.