Array zerlegen

[marabu]

So:

Delphi-Quellcode:

type
  TChannel    = array [0..FPGAMax-1] of Word;
  PChannel    = ^TChannel;
  TCustArr    = array [1..2] of TChannel;
  PCustArr    = ^TCustArr;

var
  FPGAData      : PCustArr;
  AnalogArr     : PChannel;
  DataArr       : PChannel;

begin
  GetMem(DataArr, FPGAMax shl 1); // FPGAMax * SizeOf(Word)
end.