array als var-Parameter

[BadenPower]

Zitat von bernau:

Es geht ja auch nicht darum, wie und warum man Variablen initialisiert, sondern wie macht man es am effektivsten. Und es ist sehr interessant, welche unterschiedlichsten Ansätze es gibt.

Daher finde ich den Ansatz von Neutral General aus Post #7 recht gut, da dort Zeiger in einem Array übergeben werden.

Das macht das Ganze recht flexibel.

[bernau]

Zitat von BadenPower:

Daher finde ich den Ansatz von Neutral General aus Post #7 recht gut, da dort Zeiger in einem Array übergeben werden.

Das macht das Ganze recht flexibel.

Obwohl ich mich erst einmal daran gewöhnen muss, ist es wohl tatsächlich der besste Ansatz.

SirRufos Ansatz ist auch gut. Zumal man ein Set von Variablen vordefinieren kann. Aber irgendwie auch nicht so gut zu lesen. Aber das ist Geschmacksache.


So. Danke für euere Antworten!

[BadenPower]

So ist es noch etwas flexibler:

Delphi-Quellcode:

procedure SetVariableToValue(APointers: Array of PInteger; AValue: Integer = 0);
var
  liZ1: Integer;
begin
  for liZ1 := 0 to High(APointers) do
   begin
    APointers[liZ1]^ := AValue;
   end;
end;

Als Standard wird 0 gesetzt, ansonsten der übergebene Wert im optionalen Parameter 2