C++ Delphi arrays

[Tim Henford]

Danke jetzt klappts!

wenn ich aus C++ nun wieder was an Delphi inform eines arrays zurückgeben will, bei dem ich genau weiß, dass er 3 Werte haben soll:

Code:

short Test (double *x, double *resu, int anz)
{
   CString      h1;      
   h1.Format("%f", x[2]);      
   MessageBox (GetActiveWindow(), h1, "DLLTEST",MB_OK|MB_ICONINFORMATION);
   // ==7
   
   resu= new double(3);

   resu[0]=-5; resu[1]=-7;
}

Delphi-Quellcode:

type
  Ttest = function (x,resu : PDbl; anz: integer): Smallint; stdcall;

var
  vekX,resu  : array of double;
begin
  vekX[0]:=5; vekX[1]:=7; 

  SetLength(resu,3);

  r:= test(@(vekX[0]), @(resu), 2);
  ShowMessage (FloatToStr (resu[1]));   //  == -7
end;

scheint das nicht zu klappen...

[CCRDude]

Einmal "danke es klappt", einmal "es scheint nicht zu klappen"? Im zweiten Block schreibst Du auf jeden Fall etwas in vekX, ohne dafür vorher Speicher geholt zu haben. Das machst Du dann immerhin wieder wett, indem Du für resu nach dem Aufruf eine neue Größe initialisierst...

Vielleicht wäre es angebracht, erst die Größe für beide zu definieren und sie erst danach zu füllen bzw. übergeben? :mrgreen:

[Tim Henford]

Also in C++ werden die 5 und die 7 angezeigt, aber in Delphi die -5 und -7 mit den obigen geänderten source leider nicht, irgendwas ist noch verkehrt....

[DMW]

Zitat:

Zitat von Apollonius

Meiner Meinung nach eher

Code:

Data = Data + sizeof(*Data);

Ich will das ganze doch um die Größe des Inhalts weiterrücken. Oder?

Nein, das macht der Compiler schon für dich.
Anders gesagt, folgende Konstrukte sind äquivalent:

Code:

Data = Data + 1;
Data = reinterpret_cast <double*> (reinterpret_cast <BYTE*> (Data) + sizeof (*Data));

(Folgende sind übrigens auch gleichwertig:

Code:

Data = Data + 1;
Data += 1;
++Data;

;))