C-Array/Struct nach Delphi konvertieren

[Uwe Raabe]

Ein array of kann man direkt auf die C-Array-Struktur mappen, da in Delphi noch andere Informationen dahinter stecken. So müsste es aber gehen. Du musst nur beim Array-Zugriff das Range-Checking ausschalten und die Array-Grenzen manuell überwachen.

Delphi-Quellcode:

type

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

TGroup21DiagArray = array[0..0] of TGroup21Diag;
PGroup21DiagArray = ^TGroup21DiagArray;

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