array als var-Parameter

[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