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