Einer Methode Klassen-eigene Variablen übergeben?

[Nonsense]

Zitat:

Zitat von maximov

Was spricht gegen inc(FNumFoo); ?

Weil ich dann z.B. Nummern übergeben müsste und dann per case of die gewünschte Variable verändere. Ich denke, dass das ein ziehmlich blöder Stil ist. Das muss doch irgendwie eleganter gehen. Ich glaube ich krame wieder mein Backup raus, wo ich dann zwar 8 Prozeduren habe, was aber noch halbwegs vernünftig aussieht... :angle: :wink:

[woki]

Hi,

schau mal in der OH unter

Wert- und Variablenparameter und überprüf mal die Deklaration von

Code:

procedure TStatistics.DecNumCreature(NumCreature: Integer);

Grüsse
Woki

[Nonsense]

Zitat:

Zitat von woki

Hi,

schau mal in der OH unter

Wert- und Variablenparameter und überprüf mal die Deklaration von

Code:

procedure TStatistics.DecNumCreature(NumCreature: Integer);

Grüsse
Woki

Spielst du auf's var an?

[woki]

Nachtrag:

und um das dann so zu machen wie vorgesehen in der Sprachreferenz unter Arrayeigenschaften und Indexbezeichner.

Grüsse
Woki

[woki]

Zitat:

Zitat von Nonsense

Spielst du auf's var an?

Nun ja, wenn du einen Parameter als Wertparameter übergibst, wirken Änderungen ja nicht auf die übergebene Variable.

[teebee]

Zitat:

Zitat von Nonsense

Zitat:

Zitat von maximov

Was spricht gegen inc(FNumFoo); ?

Weil ich dann z.B. Nummern übergeben müsste und dann per case of die gewünschte Variable verändere. Ich denke, dass das ein ziehmlich blöder Stil ist. Das muss doch irgendwie eleganter gehen. Ich glaube ich krame wieder mein Backup raus, wo ich dann zwar 8 Prozeduren habe, was aber noch halbwegs vernünftig aussieht... :angle: :wink:

Wenn Du es mit einem Array machst, wie in meinem ersten Posting beschrieben, brauchst Du kein Case. Mit einem Aufzählungstypen sieht es im Quelltext auch nicht nach Zahlen aus...

BTW: 'Inc' geht natürlich nicht mit Properties, also 'x := x+1;' verwenden...

Gruß, teebee

[maximov]

Genau:

entweder 'x := x+1;' verwenden oder einzelne proceduren. Die anderen lösungen sind in der tat ein bisschen uncool 8)