array an externe Funktion übergeben

[kaddy]

meine Typendefinition von den Arrays:

Delphi-Quellcode:

type
Trowi= array[0..1] of longint;
Trowd= array[0..1] of double;
Trowb= array[0..1] of byte;
Tcoli= array[0..2] of longint;
Tcold= array[0..2] of double;
Tnumi= array[0..5] of longint;
Tnumd= array[0..5] of double;

Meine Variablen:

Delphi-Quellcode:

var

 numcols, numrows, objsen, curnumrows, curnumcols: longint;
 junk, errmsg, probname: string;
 obj: Tcold;
 rhs: Trowd;
 sense: Trowb;
 matbeg: Tcoli;
 matcnt: Tcoli;
 matind: Tnumi;
 matval: Tnumd;
 lb: Tcold;
 ub: Tcold;

Dann kommt Programm und beim Aufruf von dieser Funktion stürzt der Rechner ab.

Delphi-Quellcode:

 status:=CPXcopylp(env,lp,numcols,numrows,objsen,obj,rhs,
        sense,matbeg,matcnt,matind,matval,lb,
        ub,0);

Die Funktion habe ich folgendermaßen in einer externen Unit deklariert.

Delphi-Quellcode:

 Function CPXcopylp (env: longint; lp: longint; numcols: Longint;
        numrows: Longint; objsen: Longint;  obj: array of double;  rhs:
        array of double;  sense: array of byte;  matbeg: array of longint;
         matcnt: array of longint;  matind: array of longint;
         matval: array of double;  lb: array of double;  ub: array of
        double; rngval: double): Longint; stdcall;
          external 'C:/MPLwin4/cplex65.dll';

[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]