Beispiel für Polymorphie gesucht

[Chewie]

Zitat von Motzi:

Zitat von Luckie:

Delphi-Quellcode:

      if MyFruit is TCitrusFruit then
        (MyFruit as TCitrusFruit).Squeeze

Genau sowas hab ich gemeint sollst du vermeiden..!

Na ja, aber wenn man dem Benutzer keine Exception präsentieren will, soll man dann einen try..except-Block nehmen

Also ich finde obiges Konstrukt besser als

Delphi-Quellcode:

try
  with (MyFruit as TCitrusFruit) do
    Squeeze;
except
  ShowMessage('Das hier soll durch eine gescheite Fehlerbehandlung ersetzt werden');