C-Array/Struct nach Delphi konvertieren

[DCoderHH]

Hallo alle zusammen,

ich habe eine C-DLL, die ich in Delphi nutzen möchte. Die Funktionen, die ich aufrufen möchte, habe ich schon nach Delphi übersetzt. Einer Funktion muss die folgende struct übergeben werden. Diese nach Delphi zu konvertieren klappt nicht. Es gibt eine Schutzverletzung "access violation at 0x772d0097: read of address 0x33363143"

Original C-Code:

Code:

struct s_group21diag
{
   char scode[6];
   char slokal[2];
};

struct s_group21
{
   char sgrpv[8];
   short ndiag;  //Anzahl der Elemente im nachfolgenden Array
   struct s_group21diag * adiag; //Zeiger auf ein Array das mehere s_group21diag enthält
}

Meine Übersetzung nach Delphi:

Delphi-Quellcode:

type

TGroup21Diag = record
  scode: array [0 .. 5] of AnsiChar;
  slokal: array [0 .. 1] of AnsiChar;
end;
PGroup21Diag = ^TGroup21Diag;

TGroup21 = record
  sgrpv: array [0 .. 7] of AnsiChar;
  ndiag: SmallInt; 
  adiag: array of PGroup21Diag;
end;
PGroup21 = ^TGroup21;

Ist adiag richtig dekaliert?

Delphi-Quellcode:

procedure Test;
begin
  New(Group21); //reicht das aus?
  EinlesenAusDatei(Group21);

  if Group21.ndiag > 0 then
    showmessage(Group21.adiag[0].scode); //Schutzverletzung hier!

  Dispose(Group21)
end;

Danke und viele Grüße!