Einer Methode Klassen-eigene Variablen übergeben?

[Tryer]

Delphi-Quellcode:

type 
  TNums = (numFox, numGrass, ..);
  
  ..
  procedure IncNumCreature(const Num: TNum);
  begin
    case Num of
      numFox: Inc(FNumFox);
    ..

Eine andere Variante wäre vielleicht noch einen Zeiger auf das Element zu übergeben und durch den Vergleich der Adressen auf das richtige Feld zu schliessen.

MfG,
Tryer