Prozedur aufrufende Objekt-Instanz identifizieren

[Der_Unwissende]

Zitat von Grishnak:

Ein
(source as TFileListBox).Name ... ersetzt ein

Delphi-Quellcode:

if source is TFileListBox then
  TFileListBox(source).Name ...

Tut es das? Wäre mir neu.
Also as führt natürlich eine Laufzeitprüfung durch und castet wenn möglich ein Objekt. Das Problem ist, dass auch as dir nicht garantieren kann, dass du ein Objekt hast, dass sich in deinen Zieltyp casten lässt. Ein Beispiel wäre hier, wie überführst du eine TBitmap in eine TStringList.
Der as Befehl löst eine Exception aus, wenn die Laufzeitprüfung zeigt, dass es sich um inkompatible Typen handelt. Wenn du mittels is die Laufzeitprüfung selbst vornimmst, musst du also nicht auf eine Exception reagieren und nachfolgender Code würde auch einfach erreicht werden.
Somit sind die beiden Varianten zwar (natürlich) sehr ähnlich, aber eben nicht gleich.

Gruß Der Unwissende