C++ DLL in delphi einbinden

[NicoDE]

Wenn die C-Variante bei __stdcall vor dem Zeiger auf das erste Element den Index des letzten Elements (High) als Integer auf dem Stack ablegt, dann kann man mit 'Offenen Arrays' arbeiten um sich die Arbeit zu erleichtern (sollte man vielleicht als overload in Betracht ziehen)

Delphi-Quellcode:

// 1:1
procedure Foo(A: PInteger; H: Integer); stdcall; overload;
var
  I: Integer;
begin
  for I := 0 to H do
  begin
    ShowMessage(IntToStr(A^));
    Inc(A);
  end;
end;

// open array
procedure Foo(A: array of Integer); stdcall; overload;
var
  I: Integer;
begin
  for I := 0 to High(A) do
    ShowMessage(IntToStr(A[I]));
end;

// test
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  A: array [0..3] of Integer;
begin
  // 1:1
  for I := 0 to High(A) do
    A[I] := I;
  Foo(Addr(A[0]), High(A));
  // open array
  Foo([0, 1, 2, 3]);
end;