Werte an Array übergeben?

[maximov]

Ich hab noch ne variante, die der geforderten wohl am nähesten kommt:

Delphi-Quellcode:

type

   TPointerArr = array [0..3] of pointer;

procedure Setpointers(var pointers:TPointerArr; const values:array of pointer);
var
   i:integer;
begin
   for i := 0 to Pred(Min(Length(pointers), Length(Values))) do
      pointers[i] := values[i];
end;

...

procedure TForm2.Button1Click(Sender: TObject);
var
   ps : TPointerArr;
begin
   Setpointers(ps, [pointer($bad74f),pointer($bad74f),pointer($bad74f)]);
end;

das geht natürlich nur wegen den dynamischen-array-konstruktoren, die man bei const-array-parametern zur verfügung hat.