Was bedeudet 'as' in Delphi?

[Ignazo]

Delphi-Quellcode:

procedure TPanelX.InitializeControl;
begin
  FDelphiControl := Control as TPanel; //<== Was passiert hier?
  FDelphiControl.OnCanResize := CanResizeEvent;
  FDelphiControl.OnClick := ClickEvent;
  FDelphiControl.OnConstrainedResize := ConstrainedResizeEvent;
  FDelphiControl.OnDblClick := DblClickEvent;
  FDelphiControl.OnResize := ResizeEvent;
end;

[Sanchez]

Control ist von irgeneinem Typ, eventuell TControl.
FDelphiControl ist vom Typ TPanel. Der as Operator macht eine Panele aus Control. Ist Control nicht mit TPanel verwandt, bekommst du eine Exception.

mfg Daniel

[r_kerber]

In der OH (Lesen bildet ) steht folgendes:

Zitat:

Wenn Klassen Schnittstellen implementieren, können sie den Operator as für die dynamische Bindung an die Schnittstelle verwenden.

[Ignazo]

Also wenn ich das richtig verstehe ist das nur so eine Art absicherung, oder

[r_kerber]

Wohl eher eine Art notwendiger Typecast.

[Christian Seehase]

Moin Sanchez,

Zitat von Sanchez0815:

Der as Operator macht eine Panele aus Control

Nein, er sorgt nur dafür, das der Compiler Control als vom Typ TPanel ansieht.

Prinzipiell ginge statt

control as TPanel auch

TPanel(Control) und eine Exception gäbe es nur, wenn, in diesem Falle FDelphiControl, Methoden/Eigenschaften eines TPanel zu nutzen versuchen würde, die es in der durch Control angegebenen Kompo nicht gibt.

Mit diesem Typecast übernimmt man sozusagen dem Compiler gegenüber die Verantwortung dafür, dass Control auch wirklich als TPanel verwendbar ist.

[Sanchez]

Mit TPanel(control) übernimmt man selbst die Verantwortung.
Mit control as TPanel allerdings nicht, weil eine Typprüfung durchgeführt wird.

Zitat:

Der Operator as führt eine Typumwandlung mit Laufzeitprüfung durch. Der Ausdruck

Objekt as Klasse

gibt eine Referenz auf dasselbe Objekt wie Objekt, aber mit dem von Klasse angegebenen Typ zurück. Zur Laufzeit muß Objekt eine Instanz von Klasse oder einem ihrer Nachkommen bzw. nil sein. Andernfalls wird eine Exception ausgelöst. Wenn der deklarierte Typ von Objekt nicht mit Klasse verwandt ist (wenn die Typen also unterschiedlich und nicht voneinander abgeleitet sind), gibt der Compiler eine Fehlermeldung aus.

Quelle: Delphi-Hilfe

mfg Daniel

[Christian Seehase]

Moin Sanchez,

Stimmt, , hast Du auch wieder Recht.