Beispiel für Polymorphie gesucht

[Motzi]

Ich hab in meinem letzten Post geschrieben:

Zitat von Motzi:

as prüft ja intern nochmal per is ob der Cast korrekt ist und löst gegebenenfalls eine Exception aus.. ein Kombination wie oben per is und as wäre also "doppelt gemoppelt"..

Sobald man also selbst per is geprüft hat braucht man nicht mehr per as casten sondern kann dies gleicht direkt tun:

Delphi-Quellcode:

if MyFruit is TCitrusFruit then
        TCitrusFruit(MyFruit).Squeeze