Einer Methode Klassen-eigene Variablen übergeben?

[teebee]

Delphi-Quellcode:

TStatistics = class(TObject)
  private
    FNums: Array[0..3] of Integer;
  public
    constructor Create;
    procedure DecNumCreature(NumCreature: Integer);
    procedure IncNumCreature(NumCreature: Integer);
    property NumFox: Integer read FNums[0] write FNums[0];
    property NumGrass: Integer read FNums[1] write FNums[1];
    ...
    end;

Procedure TStatistics.IncNumCreature(Index: Integer);
Begin
 FNums[Index] := FNums[Index]+1; 
End;

Probier es mal so.
Wenn Du, wie von Tryer angesprochen, einen Aufzählungstypen erstellst, wird es auch noch übersichtlich, und Du kannst die Methoden mit KLartext aufrufen.MyStatistics.IncNumCreature(NumFox); Gruß, teebee

[edit] 'Inc' ersetzt... [/edit]