Hallo,
folgendes Problem:
ich habe in Delphi (Turbo Delphi 2006 für Win32) über "Komponenten/Komponente imortieren.../ActiveX-Steuerelement importieren" aus einem OCX eine Type Library erstellt.
In einer Funktion sind die var-Parameter als Double bzw. Integer konvertiert worden.
Delphi-Quelltext
1:
2:
| function DoSomething(Param1: Integer; Param2: Integer; var pParamArray1: Double;
var pParamArray2: Double; var pParamArray3: Integer; var pParamArray4: Integer): Integer; |
In einem Beispiel-Codeschnipsel, allerdings in C++, werden diese Var-Parameter aber als Arrays angesprochen.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| DWORD i;
DWORD Param1;
DWORD Param2;
DOUBLE ParamArray1[3];
DOUBLE ParamArray2[3];
DWORD ParamArray3[3];
DWORD ParamArray4[3];
DWORD eRc;
for( i = 1; i <= 3; i++ )
{
ParamArray1[i] = 10000;
ParamArray2[i] = 1000;
ParamArray3[i] = 0;
ParamArray4[i] = 0;
}
eRc = m_tControl.DoSomething(Param1, Param2, ParamArray1, ParamArray2, ParamArray3, ParamArray4); |
Ich muss diese Arrays also in Delphi auch irgendwie füllen und übergeben.
Was muss ich tun, damit ich in Delphi an diese Arrays komme?
Vielen Dank im Voraus
Steffen
