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.

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?

[Christian Seehase]

Moin Nonsense,

wenn Du die Property als Read Only deklarierst (write Angabe fehlt), kannst Du sie natürlich nicht verändern.

[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

[Nonsense]

Zitat:

Zitat von Christian Seehase

Moin Nonsense,

wenn Du die Property als Read Only deklarierst (write Angabe fehlt), kannst Du sie natürlich nicht verändern.

Hatte ich schon probiert, funktioniert nicht. Außerdem habe ich ja 2 Methoden mit denen ich auf die Variablen zugreifen will - würde das denn überhaupt gehen!?
@Tryer: Gibt es da denn keinen eleganteren Weg?

[woki]

Hi,

1. vergiß das mit den Pointern
2. Hör auf Christian
3. Schon mal was von Fehlermeldungen gehört, wenn du möchtest, das man dir hilft, dass sei bitte nicht zu faul, diese uns mitzuteilen.

Grüsse
Woki

[Nonsense]

Zitat:

Zitat von woki

3. Schon mal was von Fehlermeldungen gehört, wenn du möchtest, das man dir hilft, dass sei bitte nicht zu faul, diese uns mitzuteilen.

Ich kriege lediglich einen Hinweis, dass der zugewiesene Wert von NumCreature nie benutzt wird. Ansonsten bleiben die Werte unverändert (d.h. sind immer noch wie im Contructor deklariert).

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

Delphi-Quellcode:

MyStatistics.IncNumCreature(NumFox);

Gruß, teebee

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

[rsilo]

Ich denke du musst , diese Zeile:

Code:

property NumFox: Integer read FNumFox;

durch das

Code:

property NumFox: Integer read FNumFox; write FNumFox;

ersetzen!

rsilo

[Nonsense]

Zitat:

Zitat von rsilo

Ich denke du musst , diese Zeile:

Code:

property NumFox: Integer read FNumFox;

durch das

Code:

property NumFox: Integer read FNumFox; write FNumFox;

ersetzen!

rsilo

Funktioniert nicht.
PS: Da kommt übrigens kein ";" vor's write.

[maximov]

properties sind halt keine variablen! ...sie fühlen sich nur so an :stupid:

Was spricht gegen inc(FNumFoo); ?