Eigener Datentyp und nur bestimmte Werte

[Keks]

Wahrscheinlich sind das absolute Grundlagen, aber ich bin bislang irgendwie drumherumgekommen, denke aber nun, dass das häufig sinnvoll wäre, deshalb hoffe ich hier auf Hilfe...

Ich möchte eine eigene Prozedur beispielsweise so aufrufen:

Delphi-Quellcode:

myProcedure(tnKatze);
//[...]
procedure myProcedure(meinTier : TTierName);
begin
  if meinTier = tnHund then
  //..
  else if meinTier = tnKatze then
  //..
end;

Ich muss ja dann TTierName als Datentyp deklarieren. Aber wie lege ich dann die möglichen Werte (tnHund, tnKatze, ...) fest?

Sollte ja machbar sein, oder? Bitte ein kurzes Beispiel wie das geht. Danke!

[mkinzler]

Kommt darauf an, ob du es nur als Aufzählung haben willst oder objektorientiert

[Meflin]

Einfacherweise so:
TTierName = (tnHund, tnKatze, tnNasenbaer) Und damit kannst dann schön arbeiten... z.B.

Delphi-Quellcode:

case MyVar of
  tnHund: ...
  tnKatze: ...
  else ...
end;

usw.

[Keks]

@Meflin
Vielen Dank! Genau das meinte ich. *gemerkt*

@mkinzler
Ich nehme an, das Beispiel von Meflin ist dann eine Aufzählung. Und wie sehe das objektorientiert aus?

[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 ...

[Keks]

Danke schön!