Einer Methode Klassen-eigene Variablen übergeben?

**Nonsense**

Hallo,

ich habe eine Klasse mit 4 Variablen (Integer). Nun möchte ich diese 4 Variablen verändert, d.h. inkrementieren oder dekrementieren.
Da ich nicht für jede der 4 Variablen eine Prozedur für Inc und Dec schreiben will, dachte ich mir, dass man doch eigentlich nur die Klassen-eigene Variable übergeben müsste. Pustekuchen. Funktioniert nicht.

zusammenfalten · markieren

Delphi-Quellcode:

			  TStatistics = class(TObject)

  private

    FNumFox   : Integer;

    FNumGrass : Integer;

    FNumRabbit: Integer;

    FNumSand  : Integer;

  public

    constructor Create;

    procedure DecNumCreature(NumCreature: Integer);

    procedure IncNumCreature(NumCreature: Integer);

    property NumFox: Integer read FNumFox;

    property NumGrass: Integer read FNumGrass;

    property NumRabbit: Integer read FNumRabbit;

    property NumSand: Integer read FNumSand;

  end;

[...]

procedure TStatistics.DecNumCreature(NumCreature: Integer);

begin

  Dec(NumCreature, 1);

end;

Aufruf mit:

Statistics.IncNumCreature(Statistics.NumFox);

Hat jemand eine Idee?

Einer Methode Klassen-eigene Variablen übergeben?

Einer Methode Klassen-eigene Variablen übergeben?

Forumregeln