Array-Parameterübergabe

[3_of_8]

Delphi-Quellcode:

{$O-}

procedure TForm1.test(a: array of Single);
begin
  asm nop end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  test([4.2, 13.37]);
end;

Bei mir kompiliert das und das Array enthält auch die richtigen Werte.

EDIT: Mit zwei Arrays gehts genauso. Wie hast du deine Methode deklariert?
EDIT2: Unter Delphi 7.

[Hawkeye219]

Manuel, du hast Recht. Es hängt einzig und allein von der Signatur der aufgerufenen Routine ab. Bei dem von mir verlinkten Thread wurde die Funktion CreatePolygonRgn verwendet, die einen typenlosen CONST-Parameter erwartet. Hier funktioniert nur die von mir vorgestellte Lösung mit dem Konstruktor-Aufruf (und auch nur ab Delphi 2005/6). Wenn (wie in deinem Beispiel) der Parameter mit Typ vereinbart wird, funktionieren beide Lösungen - auch in früheren Delphi-Versionen.

Gruß Hawkeye

[LucasL]

Stimmt, es funktioniert. Folgendes kompiliert jedoch nicht (und so habe ich es gemacht):

Delphi-Quellcode:

type
  TInput = array of Single;

procedure proc(Input: TInput);
asm
  nop;
end;

begin
  proc([0.0, 1.0]);
end;

[Hawkeye219]

Hallo Lucas,

du mußt deine Routine ein wenig abändern:

Delphi-Quellcode:

procedure proc(const Input: array of Single);
asm
  nop;
end;

Gruß Hawkeye