Das geht wie Sir Rufo schon gesagt/angedeutet hat nur mit einem Array of PInteger.
Delphi-Quellcode:
procedure SetToZero(Werte: Array of PInteger);
var i: Integer;
begin
for i:= 0 to High(Werte) do
Werte[i]^ := 0;
end;
procedure Test;
var
Val1, Val2 : Integer;
begin
Val1 := 42;
Val2 := 84;
SetToZero([@Val1,@Val2]);
Assert( ( Val1 = 0 ) and ( Val2 = 0 ), 'Mist, hat nicht hingehauen' );
end;
Wenn dich das @ nicht stört, gehts so. Ansonsten fällt mir jetzt nichts ein.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."