Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: array als var-Parameter
1. Jul 2015, 11:13
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
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
|