Eigener Datentyp und nur bestimmte Werte

[mkinzler]

Delphi-Quellcode:

type
  TTier = class
    //Allgemeine Eigenschaften und Methoden
    Name: String;
    ...
  end;

  TKatze = class( TTier)
    //Spezielle Eigenschaften und Methoden einer Katze
    ...
  end;

  THund = class( TTier)
    //Spezielle Eigenschaften und Methoden eines Hundes
    ...
  end;
...

Tier: TTier;
...

    if Tier is THund then ...