@Fritzew
Danke für deine Variante habe sie übernommen aber nur den Teil.
Delphi-Quellcode:
const
maxIntArraysize = (maxint-sizeof(integer)) div sizeof(integer);
type
IntArray = Array [0.. maxIntArraysize] of integer;
PIntArray = ^IntArray;
meta: PIntArray;
Das Ergebnis ist das gleiche aber kompatibler und ohne unnötiges casten.
Nochmals Danke schön
gruss